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“SEP=1984 04:26: UETP.SRCJUETTAPEOO.MAR; 1 (1) 


- TITLE UE TT APE OS VAX/VMS UETP DEVICE TES’ FOR TAPE 
-IDENT ‘*V04=-000' 
-ENABLE SUPPRESSION 


MAARBARARAAARAALASAAALALASASELA SELES ARE EE SRE ESSE ERASE SRE E ARES SEER E REET EES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
thee ™ Satta a CORPORATION, MAYNARD. MASSACHUSETTS. 


IGHT 

SOF TWARE +# ean HED UNDER A LICENSE AND MAY BE USED AND COPIED 
at ACCORDA WITH THE yey OF ot LICENSE AND WITH THE 
S 
Pp 


USION OF TH Nee ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ES THEREOF MAY_NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
R Ad yell NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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© 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aeePOR AT on NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS wie 


I FOR THE USE OR 7 emia OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


Y 
NOT SUPPLIED BY DIGITAL 


oOo ooo pelea leololeloleoeleleleleloleolo) 


. ete . 
e@aneeenenenenennnenenenennnnnnnne 
~ 
xz 
> 
=z 
wn 
nn 
m 

Zz 


Ai tian at nt cgi hs haa aah at eae a 


: “FACILITY: 
: This + ana will be distributed with VAX/VMS under the CSYSTESTJ 
account. 


; ABSTRACT: 
; This program tests all supported mag tapes. It uses Q10's in ie 
ONE PASS mode and RMS block mode with variable record size int 

anager ee, LOOP modes. tones are rewound, dismounted and Jett toed 
on ex 


: ENVIRONMENT: 

3 This program will run in user access mode, with AST's enabled except 

: during error processing. This program requires the following privileges 
3 and quotas. 

: GRPNAM, LOG_IO 

3 AST queue = 2 + number of tape units under test 


OOCOCCOCOSCSOOCOOOCOOoOOoOCOoOSoSooOOoOoOSoSoO 


; AUTHOR: Robert N. Perron CREATION DATE: Feb., 1981 
; MODIFIED BY: 

v03-007 Bemnd00s Richard N. Holstein, 0 
Make one-shot timer more forgiving. Expl 
if we get an error in one-shot mo e. 


V03-006 RNHOO0S Richard N. Holstein, 15-Feb-1984 


1=Jul-1984 
icitly deassign tape 


SOQOCCOCOCOSOSOCOSSOOCOOCOOOSCOCS OOOO OCOSOSOSOSSOSOSOSCOSOSOSOOOSOOSCOSSOOOOOOOOOOO 
NAME WIN 9 OO NA UE WIN O OD NAME WIN 9 OD NIA E WW OO OONOA UE WI OOONOAU LEW 


SOOOCOCSOSOOSOOCOOCSOOOCOOOOOOOOOSSOOOOOSOSOOSOOOOCOOCOOOOOOOOOOOOOOOOOOO 


MANNII EEE RES PW Iinononononononononony 2 3 


SOoooooooooooooooo 


Soooooooooo 
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V54~000 ~3Eb=1 984 1 :38:38 UETP.SRC GETTAPEOO. MAR; 1 


Take sevecsney = new UETP message codes. Fix SSERROR 


Page hy 


interaction with RMS_ERROR. 

V03-005 RNHOO004 Richard N. Holstein, 19-Dec-1983 
Give correct sentinels to Test Controller. 

V03-004 RNHOO03 Richard N. Holstein, 11-Mar-1983 
Don't signal ending message in EXIT_HANDLER. 

V03-003 RNHOO02 Richard N. Holstein, 25-Feb-1983 

Allow for longer device names. 
V03-002 RNPOOO9 Robert N. Perron, 08-Nov-1982 


Add code so ty cape init routine reuses the same 
termination mbx each pass in loop mode. Also restcre 
SSFM and AST enable mode before exiting dismount routine. 


V03-001 RNHOOO1 chard N. Holstein 15-0ct-1982 


Miscellaneous Poe Listed in the V3B UETP Workplan. 
V02-009 RNPOOODS Robert N. Perron, 02-Mar-1982 
Enable loop mode. 
V02-008 RNPOO007 Robert N. Perron, 23-Jan-1982 
Changed to conform to new mount system service interface. 
V02-007 RNPOO006 Robert N. ihe 17-Nov-1981 


petivates code to utilize mount system service. 
Changed the .ENTRY and .TITLE to UETTAPEOO. 


V02-006 RNPOOOS Robert N. Perron, 28-Sep-1981 
Changed TEST_NAME to agree with UETSUPDEV.DAT. 
Changed watch dog timers from using event flag #0 (default). 


SOoOSOSOSOSCSOSOOSOSOOSOSOSOSOOSOOSOOOOSOOOOOOOOSOOSOO 
SOoOOSCOCSOSCOSOOCOSCOOSCOOSOSOSOOOSOOOOSOOOOOOSOOSoO 


BDOODOOOOOOOO0O0O OOOO O00 00 00 09 09 09 09 09 09 09 09 SIN NINN NIA AAA AAAAOOOrn 
TRIO Te Te Tee eee eee eee rere eee rere re rere rererererererererercererere re rere re rere rerere rere rarer 


SOOOCOSOOCOCOOCOSOOOSOSOOOSOOOOOOSOOSOSCOOOSOOOCOOOOOOOOCOO 


v02-005 pets Robert N. Perron 22-Sep-1981 
oo Changed INIT process to be detached instead | sub. 
00 v02-004 LDJ0001 Larry D. 21-Sep-1981 
oS Changed the SENTRY and "THTLES to be UETTAPEO1 
00 V02-003 RNPOOOS Robert N. Perron, 14-Sep-1981 
$ , Increased dismount wt A dog timer interval. 
Be 1 v02-002 nupood2 Robert N. Perron, 11-Sep-1981 
: Fixed race condition between dismount and init routines. 
$0 1 v02-001 RNPOOO1 Rober 02-Sep-1981 
1 Modified so that GETINIDEV. DAT. % updated only when in 
! oneshot mode. 
00 1 te 
00 1 ~- 


<_o 


-SBTTL Declarations 
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V wO08 Declarations ~$6b= 138? 4:26: 38 Y LUETP. Sar aGeerMpeOo. MAR; 1 — 3) 
: INCLUDE FILES: 


6 0 3 SYS$SLIBRARY:LIB.MLB for general definitions 
8 8 ; SHRLIB$:UETP.MLB for UETP definitions 
° 5 ; MACROS: 
$0 SACCDEF ; Accounting definitions 
; SCHFDEF 3; Condition handler frame definitions 
$SDEVDEF ; Device definitions 
0 $SDIBDEF 3 pyeice Information Block 
00 SOMTDEF 3; Dismount system service definitions 
0000 SDVIDEF : et ITMLST item codes 
0000 $F IBDEF :; Define file info block symbols 
0000 SIODEF 3; Define 1/0 function codes 
0000 SJPIDEF ; Getjpi definitions 
0000 SMNTDEF ; Mount system sevice definitions 
0000 SMTDEF ; Magtape definitions 
0000 SSHRDEF ; Shared messages 
0000 SSSDEF ; System seretee status codes 
0000 SSTSDEF 3; Status ret 
0000 SUE TUNTDEF ; ute unit block offset definitions 
8 3 SUETPDEF 3; UETP 
8 8 ; EQUATED SYMBOLS: 
00 ; Facility number definitions: 
0 
0 
0 
0 
0 
: 


OOCOCOCOCOCOCOCOCOCO SOOO SOSOOOCOOOOO OOOO OCOOO OOOO OOOO OOOO OOOSCOSoOO 
SUSU SUSU EB BY BB BE BB AAAI INIA AINI AP PPODIPUPINNOPDY 2 PS PO OS OS OO 
PAN CO OO NAU EWN 0 ODO WWN | 0 OONOAU EW O OONOU ES Win 


ee ek ed a a st 8 = = = a a SS 2 2) ad Ss ss 1s - a 2 1 SS SS 


00000001 RMS$S_FACILITY = 1 
0 ; SHR message definitions: 
00740000 00 UETP = UETPS_ prt abs | tesiooe FAC -NO Define the UETP facility code 
oS 3 UETPS_ABENDD™ = UET _ABENDD : Define the UETP message codes 
007410 8 UETP$_BEGIND = JETP! SHRS"BEGIND 
0074108 0 UETPS_ENDEDD = UETP! SHRS$_ENDEDD 
0074109. 8 UETPS opeceee = UETP!SHR$_OPENIN 
0074113 UETPS$_ TEXT = UETP! SHRS_ TEXT 
0 : Internal t_over bits...: 

0000000) 0 TEST_OVERV 1 : Set when pass timer expires 
0000000 0 SAFE-TO yrov = ¢ ; Set if it’s safe to counts UETINIDEV 
B = ; Set if "BEGIN'' msg has been, printed 

4 5 ONE SHOT RODEV = 4 ; Set when “MODE"’ is ‘‘oneshot' 
; 82 § LOOP_MODEV = 5 ; Set when ‘MODE"’ is op 
0 0 3 DATA_ERRORV = 6 ; Set wore gompare off read 4 write data 

z: .eefails in ‘‘one 
00000007 p 33 TEST_STARTV = 7 3 set, when testing is Started in normal 
; or loop m 
00000008 es MBX_CREATEDV = 8 ; Set oh termination mbx is first created 
$4 3 ne ONG corresponding masks: 
? 64 TEST_O = 1aTEST_OVERV 
65 SAFE _TO_UPDM = 1@SAFE_TO_UPDV 
| 96 BEGIN _MSGM = 1aBEGIN_MSGV 
1 ONESHOT_MODM == 1 SONESHOT _MODEV 
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g SEP-1984 cr oe ig 
Declarations SEP=1984 RCJUETTAPEOO.MAR; 1 (2) 
000002 LOOP_MODM = 1@L0O0P_MODEV 
000004 DATA_ERRM = 1QDATA_ERRORV 
8 4 TEST_STARTM = 1aTEST_STARTV 
00001 MBX_CREATEDM = 1a@MBX_CREATEDV 
; Unit block device dependent flag bits: 
00000003 UETUNTSV_MOUNTED = § . ; Set when tape is mounted 
00000004 UETUNTSV_MODIFIED = 4 ; Set if we try to do a CREATE 
: --and corresponding masks: 
00000008 UETUNTSM MOUNTED = 1aUETUNTSV_MOUNTED 
0000001 UETUNTSM_MODIFIED = 1Q@UETUNTSV_MODIFIED 
$ Risce) anys 
a4 4h 4 LC_BITM = “x20 ; Mask to convert lower case to upper 
PORNO E REC_SIZE = 40. ; UETINIDEV.DAT record size 
0000084 TEXT_BUFFER = 132 ; Internal text buffer size 
00000001 REQI6T1 = | ; AST parameter for pass completion 
SOROS REQIDT2 = ¢ ; AST parameter for device hung 
0000000 SS_SYNCH_EFN = :; Synch miscellaneous system services 
0000000A MAX_DEV_BESIG = 10 ; Longest possible controller name 
00000005 MAX_UNIT_DESIG= 5 ; Longest possible unit number 
0000000F MAX_PROC_NAME = 15 ; Longest possible process name 
see dh MBX SIZE = g°6 : Termination mailbox size 
0000000 DENS_LEN = ; Length of density string 
00000018 sc = *x1B 3; Escape character 


: Device dependent definitions: 


Orginal vane densit 
UETUNTS 


COOCCOCSCOCSSOSOOOSOSCOSOSOOOSOSOSOOSOSOSOSOSOSOOOOOOSOSOSOOOOSOSOSDSO 


SOoOOOOCOOOoOoSooO 
De ee eee ewe we we we a el ee ee ee ee ew ww ola lolol alo lolol ololololelolololo lolelolololo) 


COOOCCCCOCOCOOCOCOOSCOSOoOoOSCSoOSOSOOOCOCOOSOOOOSCOOOOOOOOSOSOOO 


ROPIPONID QOOCDOOCOOOOC OO CGWOO OOO O00 090909 09 09 COO 09 SI NI NSIS INNS NIO OO 
PAO ODA UNE WI 2 OD NA UNE IPS OOD NAME WIN 0 OD NAME WN OWOONOUS WIN —OWO00 


POR POPOPOPOPOPOPONONOROPONONONONONUPIPONONINUNINY 2 9 tt Ss 


COOOSOSOOOCOOVDOOCOO OOOO SOOOSOOOOOOOOOOOOOOOOOOOOOoOOo 


000001A4 K_DENSITY = UETUNTSK_DEVDEP 
; Device name descriptor 
000001A9 ETUNTSQ_DEVDSC = UETUNTSK_DEVDEP+DENS_LEN 
; Device name buffer 
00000181 UETUNTSK_DEV_NAM = UETUNTSK_DEVDEP+8+DENS_LEN 
3 Index for buffer size List 
000001¢0 TUNT$B_BUFPTR = UETUNTSK_DEVDEP+8+DENS_LEN+MAX_DEV_DESIG+MAX_UNIT_DESIG 
; Index for density List 
000001¢1 ore UETUNTSB_D NSPTR = UETUNTSK_DEVDEP+9+DENS_LEN+MAX_DEV_DESIG+MAX_UNIT_DESIG 
3; Unit read buffer 
000001C2 UE TUNTSK_RBUF = UETUNTSK_DEVDEP+10+DENS_LEN+MAX_DEV_DESIG+MAX_UNIT_DESIG 
: The following definitions are set depending on the device under test. 
3 (all in bytes) 
OOO000TE DEVDEP_SIZE = 10+#DENS_LEN+MAX_DEV_DESIG+MAX_UNIT_DESIG ; Size of 
3; device dependent part of unit block 
8 008 4 WRITE_SIZE = 35768 ; Size of device write buffer 
00800 READ_SIZE = 3276 ; Size of device read buffer 
PAGES = <<UETUNTSC_INDSIZ+- ; Add together all of the pieces... 
DEVDEP_STZE+- 5 «eewhich make up a UETP unit block... 
READ siget~ 3 «to give to the SEXPREG service 
00000041 : 511>7512> 


Read-Only Data UETP.SRCJUETTAPEOO. 
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00008 Ken 


TTL Read-On nly 
ECT RODATA,NOEXE ,NOWRT ,PAGE 


ACNT_NAME : ; Process name on exit 


53 45 54 53 59 53 wae ntact * »ASCID /SYSTEST/ 


TEST_NAME: ; This test name 


50 41 54 54 45 55 ee tte ASCID /UETTAPEOO/ 
30 30 4 


How we access UETSUPDEV.DAT 


SUPDEV_GBLSEC: 
-ASCI 


50 55 53 54 45 55 verscpttniceall by iw + D /UETSUPDEV/ 
56 45 44 


aptamer Logical name of controller 


41 4E 4C 52 54 43 meteiotinedladiey | ig § /CTRLNAME / 


MODE: Run mode logical name 


45 44 4F 4D 00000049'010E0000" »ASCID /MODE/ 


LABEL: 


Required tape Label 


OOOO SCSCOCOOOCCOCOCOOOOOOCOOOoOOO 
OO OOO 09800 SIN IAA A AAO BS EEF FWWIWIWIPINININ — CQOCOOCOOOoO 
AIP C-AOWINNN 9 OU DOO 9 SS TSS | MOOOU MT TM 
PPI ER PPLE AIAN WW WS 
QVisewn—OV0OonF UW O COON SOUS Wr OOO 


PONIND POTOTO = POMIPOMOMOPOPOTY) —_ POPOPOPOPOPOPorononoen»=— Porororororey)s—s Porory oo forormw”=s so Porory) os Porororormy=—sae# 


0 
0 
0 
0 
0 
0 
0 
0 
0 
20 20 50 54 45 55 00000055'010E0000" 0 -ASCID /UETP / ; 12 characters, same as DIB field 
20 20 20 20 20 20 3 
0 NO_RMS_AST_TABLE: 3 hiss of errors for which. 
00000000" 0 -LONG RMSS$_ : .«eRMS cannot deliver an AST.. 
00000000' 8 LONG RMS$_BUSY 3; ...even if one has an ERR= arg. 
444046 «LONG RMS$_CDA : Note that we can search table... 
00000000° 0 -LONG RMS$_FAB ¢ ++eWia MATCHC since <51:16>.. 
00000000" 0 -LONG RMS$_RAB 3 «eepattern can't be in <15:0>° 
00000014 6 NRAT_LENGTH = .-NO_RAS_AST_TABLE 
8 SYSSINPUT: ; Name of device from which... 
4E 49 24 53 59 53 sencnakdl ity: 3 -ASCID /SYSSINPUT/ i «..the test can be aborted 
0 57 
$8 58 INPUT_ITMLST: ; SGETDVI arg List for SYSSINPUT 
0020 0040 00 59 -WORD 64,DV1$_DEVNAM 3 We need the equivalence name 
0000000C '00000014° 00 60 “LONG BUFFER, BUFFER_PTR 
00000000 2] -LONG 0 ; Terminate the List 
8 8 CS1: ; Device class and type control string 
21 20 42 58 32 21 snnced* 593069090" + 64 ASCID /!2XB !2xB / 
A 65 
rt 06 CS3: ; Device class-only control string 
2A 20 42 58 32 21 eects * | A 6 ASCID /!2XB #*/ 
ti 
5 747 00 90eF "91059000" 7 % -ASCID \Aborted via a user CTRL/C\ 
2657 e: $3 6 ° $e C5 
2 54 43 20 D1 
+ 3) 
D 72 NO_CTRLNAME: 


CNTRLCMSG: 
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Read-Only Data 


omwwo omvmm©U-vs onmu. on oornN"er ooaoon owwow oor.r. oor. ovoco 
-uo emus NW -Ow —™ — a ae --Ouw -oOo°oo -OoOoO “oo -—-—-Ow 
own or-r-oow owr. ow ornwn ouNnwo occur or. or own ooor 
ouwm owOooow ~mo av rNOO mw wove o-oo ave wiwicd 
- - - - - 
ous OOnr- Ow ons on OmMmoOw oOmum ooan onNue a aed Sone 
ownw OMn—Muss ouUm oo ouwo Coovo owwne onwmn oom Vvury 
owr oor ow owuno ow owuow omen ooor. ouuon onuw oor 


MwMOOrcr NO 
ronrncsr TUNO 


HWA WIN T 
wovonr nM WON OR 


wrowmw wevso 
wor-mwow ore 


NOMS oon 
Nur OrRWwN umon 


Te MO ow 
rOworws orn 


ouUNjeg-w o 
WON B3Ss¥ 


20 72 6F 7 
69 74 6E 7 


F 14 
UETTAPEOO VAX/VMS UETP DEVICE TEST FOR TAPE 16-SEP-1984 01:33: AX/VMS Macro V04-00 P 
¥54+008 Read-Only Data met Ti 3838 UETP.SRC SETTAPEOR MAR; 1 ee 
53 41 21 20 73 65 72 69 75 71 65 ge + 4 
A 1 
69 20 53 41 21 20 000002AD'010E0000' ‘ ite aerial (31% / !AS is write-locked./ 
& . Ww - . 
6B 63 6F 6C 3 65 88 3 77 58 "3 B 
2E 64 6 BF 
C 04 
C OS DENSITY_ERR: 
6F 63 65 72 of 55 o9090264" 01060009" C 06 -ASCID /Unrecognizable density./ 
6E 65 64 20 65 6C 62 61 7A 69 GE 6 D 
2— 79 74 69 73 45 
E 07 
E1 08 INIT_ERR_MSG: 
20 72 72 72 45 B00 gE "0105 0000" E1 09 sASCID /Error while initializing !AS./ 
61 69 74 69 6E 69 20 65 6C 8 68 7 EF 
2e 41 21 20 67 6E 69 7A 69 6C 8 fe 10 
Bane 31 DISMNT_ERR_MSG: 
20 72 6F 72 72 45 BRO 00 S06 "2106 0099" 06 12 -ASCID /Error while dismounting !AS./ 
75 6F 6D 73 69 64 $3 65 6C 69 68 7 Ba38 
2E 53 41 21 20 67 6E 69 74 6E 039k 13 
032A 314 INIDEV_UPDERR: Error during exit handler 
20 72 72 72 45 99000574" 0) 059099" oa6a 15 -ASCID /Error updating UETINIDEV. DAT./ 
54 45 55 20 67 6E 69 74 61 64 70 0338 
2€ 41 44 56 45 44 49 4E 49 0344 
O34F 16 
O34F 17 THIRTYSEC: 
11E1A300 Beet 18 -LONG 10*1000*1000*30 ; 30 seconds time 
0333 QO THIRTYSEC_DELTA: 
FFFFFFFF EE1ESDOO 2 1 CONG -10*1000*1000*30,-1 : 30 seconds delta time 
0356 ‘ ONEMIN_DELTA: ; 1 minute delta time 
FFFFFFFF DC3CBAOO 2 : «LONG -10*1000*1000*60,-1 
0 6 § THREEMIN: ; 3 minutes time 
68490200 ? -LONG 10*1000*1000*180 
67 } TUREERIN_Det TAs ; 3 minutes delta time 
FFFFFFFF 94862E00 rt ? LONG -10*1000*1000*180,-1 
6F § CONT =DESC: : beagriptor used to convert controller... 
0999 0028 of WOR REC_SIZE,0 3 ..-from lowercase to uppercase 
00014" 3 : S ADDRESS BUF FER 
77 $ RMS_ERR_MSG: ; Announces an RMS error 
72 65 20 53 40 36 st "91080 77 -ASCID /RMS error in file !AD/ 
20 65 6C 69 66 20 6E 6 eS & «' 33 
i 
94 333 DROP_UNIT_MSG: ollows above nee if testing started 
65 $3 9 76 65 44 526°0105 * 0394 40 .KSCID /Device !AS ‘vanes from testing./ 
64 65 70 70 6F 72 53 41 A2 
6E 69 74 73 65 74 20 6F 72 : at 
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‘3 PROMPT: 
4 ASCII /Controller designation?: / 


PMTSIZ = .-PROMPT 


; List of buffer sizes to use (in bytes, max= 32768) 
BuF_SZ_LIST: 
00000200 LONG ie 
000001FF ~LONG 11 
$28 ors «LONG 1 
0 8 LONG § 48 
So0000s Teh sz=.- oUF SZ_LIST/4 
=.70 
00000000 LONG 0 3 terminator 


Densities=- (The om of all entries must be equal to DENS_LEN and 


44 
a2 
‘? 
: 
5 
38 
54 
2? 
3? end wit space) 
59 DENS_LIST: 
20 3 30 38 20 60 NRZIZ  .ASCII / 800 / 
20 30 30 36 31 61 PE: ASCII 11508 / 
20 30 35 32 36 $6 GCR: ASCII /6250 / 
00000000 o «LONG 0O ; terminator 
92 ; SGETJPI to get the base priority of the parent process 
$$ GET_LIS: 
8088 68 «WORD 4 
0309 69 -WORD JPI$_PRIB 
00000193' 70 -ADDRESS BASPRI 
i444 444 71 «LONG 0 
0000000 Le: LONG 0 
fe ; The following data is used for creating and running indirect commands. 
76 LOGINOUT: 
59 53 24 53 59 53 000004 77 eASCID /SYSSSYSTEM:LOGINOUT.EXE/ 
55 4F 4E 49 47 4F 4C is 


CMD_OUT: 3; Command file output descriptor 
-WORD OUT_LEN,O 
_- ADDRESS OUT _bEV 
OUT_DEV ; Output to null device 
“gASCll /NL 
ouT LEN = ‘tout DEV 


"90000437" 
80006008 


CMD_FILE: 


50 41 54 47 41 4D saat yt tH -ASCID /MAGTAPE.COM/ 
4D 4F 43 2E 4 


AAA AWNNWWWIWtww WAIN NANA AWA AI AIAN AAA AAAAAWI NAAN WWW 
= 


coco 38 aDCOCOCDCOCUODCO “I~ 


PRR RRR RRR REPRE ERE FWA AAA AAAI 
B&B EWI IORI 4 | | OOOO OOOOO TN AMMMMMMMMMMNOTOVTOOTIVOWDW 
COC Od ¥ FF NNW SPMOOCSCOCONDENGOOSCSN NVI TI OT0 OOM" 9 QUINN EDINA 


vo 

@OC 

PS ) 

wn 

Oo 

rou 

mroO 

So 

VINO 

Pwo 
SOSDODDOOSOOSOOOOCODSSOOOOSOOSOOOOOOOO OOOO OOO0O 


SOOO NOUS WN—OOM 


Sl Se 
v04-000 


00000000 


0000 Q00A 
000000F8' 


FFOOOOBDODODLLHLOOOOGFL LS 


QOA 
QO00000A' O0A4 
QOOOO0AC*® O0A8 


50 41 54 47 41 4D 24 54 45 55 
0000000A 


oo 
oOo 
> 


RRRRRSSSSSSSSSSSSSSSqqqan oS > 
OSD $$ + DOO OOCOCOMDBWOWOMMMPS,AACAOO 


0000 000A‘ 
000000BE ° 


0 
008 
0 
0 


31 3B 54 41 44 2E 50 54 45 55 
0000000A 


0000 
000 


009° 
DO’ 


54 41 44 2E 50 54 45 55 3A 
00000009 


FFFFFFFF 94862E00 


45 50 41 54 eee 80000008 
F 


VAX/VMS UETP DEVICE TEST FOR TAPE” 
Read/Write Data 


x 
5 
5 
; 
9 
8 
5 
8 
5 
: 
£ 


9 
9 
9 
9 
9 
9 
9 
28 
é9 
20 
40 
40 
40 
40 
40 
41 
4] 
41 
41 
41 
41 
41 
41 
41 
41 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
& 
4 
4 
4 
4 
4 
4 
4 
44 
44 
&4 
44 
44 
rr 


168 


-SBTTL Read/Write D 
-PSECT RWDATA,WRT,NOEXE,PAGE 
TTCHAN 
ORD 0O 
FLAG: 
WORD 0 
FAO_BUF : 


~-WORD TEXT BUFFER,O 
-ADDRESS BUFFER 


BUFFER_PTR: 
~WORD TEXT BUFFER,0 
ADDRESS BUFFER 


BUFFER: 
-BLKB 


CUR_UNTBLK: 
- LONG 


TEXT_BUFFER 
0 


DEVDSC: 
«WORD MAX_DEV_DESIG,0 
TADDRESS DEV _NARE 


LOGNAM_DESC: 
-LONG _LOGNAM_ LEN 
-ADDRESS LOGNAM 


eASCIL /UETSMAGTAP/ 
LOGNAM_LEN=.-LOGNAM 


ONESHOT_DESC: 
~WORD  ONESHOT _LEN,0 
ADDRESS OS_FILAM 


LOGNAM: 


OS_FILNM 
ASCII /UETP.DAT;1/ 
ONE SHOT -LEN=.-OS_FILNM 


FILNM_DESC: 
WORD FILNM_LEN,O 
-ADDRESS FILNA 


FILNM 


ASCII /:UETP.DAT/ 
FILNM_LEN=.-F ILNM 
TIME: 
LONG -10*1000*1000*180,-1 
PROCESS _NAME : 


-ASCI 


:33:3 38 AX/VMS Macro V04- of? Page 9 
:26:2 UETP.SRCJUETTAPECO.MAR; 1 (4) 
Channel associated with ctrl. term. 


Miscellaneous flag bits 
(See Equated Symbols ioe definitions) 


FAO output string descriptor 


Fake .ASCID buffer for misc. strings 
A word for length, a word for desc. 


FAO output and other misc. buffer 
Address of current unit block 


Dev.ce name descriptor 
-This will have actual Length of DOcn stri 


Logical name for first testable device 
found that can be used by other tests 


File name descriptor - used for tape 
- record in oneshot mode 


File version num. required for Q10's 


File name for tape records - normal 
and loop mode 


; Pass duration 


: three minutes to start with 
; Process name 


D /TAPE/ 
PROCESS NAME FREE = MAX PROC_NAME~<.-8-PROCESS_NAME> 


-BLKB “PROCESS_NAME_FREE 


U yt 
v04-00 
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Read/Write Data UETP. SRC} UETTAPEO 
. 449 
F 450 DEV_NAME: Device buf f 
0000107 et 234 <BLKB MAK DEV_DESIG#MAX_UNIT LeOOER eae 
0000000F 4 rT NAME_LEN = 7=DEU_N 
7 454 DIB: ; Device Inf ti k 
0000 0074 0107 455 .WORD _DIBSK_LENGTH,0 syd seal ipa ee 
0000010F ' ° £28 "ADDRESS DIBBOF 
F $28 DIBBUF : 
00000183 F $28 -BLKB DIBSK_LENGTH 
00000000 0 i 48¢ wieteae ceeny 0 ; Cumulative error count at runtime 
87 464 STATUS: ; Stat l i 
90000000 0 7 i on atus value on program exit 
8B 467 IOSTAT: ; 10 stat block 
00000000 00000000 5 468 0 A Mivigy Base 
00000002 6 $3 i BASPRI: 2 ; Base priority received from $Getjpi 
0197 475 AST_MODE: 3; Pri tti f AST deli 
00000000 97 474 LONG 0 a calito wing 
476 SS_FAIL_MODE: 3; Pri tti f SS fail d 
00000000 0 477 “LONG 0 Deel pih tc ottee outed beter 
6 479 INADDRESS: ; SCRMPSC address storage 
00000000 00000000 0 rt -LONG 0,0 
0 4 § OUTADDRESS: 
00000000 00000000 ? ? -LONG 0,0 
6 485 UNIT_CNT: ; Number of units found 
00 : § -BYTE 0O 
488 DEVNAM_LEN: ; Current device name Length 
0000 rt «WORD 0 
491 RANDOM: ; Used for generating random data 
AAAAAAAA 49 » LONG “XAAAAAAAA 
495 RANDOM2: 
A72EA72E $32 -LONG “XA72EA72E 
£38 ITERATION: ; Count of the number of files created 
00000000 -LO 0 ; eeein normal and loop modes 
635 PASS: ; Pass count (loop mode) 
00000000 -LONG 0 
: MSG ALOCK ; Auxiliary SGETMSG info 
0000016 BLKB 4 
3 START_CNT: ; Number of units running 
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V "O05 Read/Write Data $7865 =1982 8h 8 :38 UETP.SRC ORE ST MeEOo. MAR; 1 ” (4) 
00 -BYTE 0 
EXIT_DESC: ; Exit handler descriptor 
9000000 “LONG 0 . . 
000012F8' o ADDRESS EXIT_HANDLER 
BeaRe g} «LON 
0000187" »ADDRESS STATUS 
90000000 ARG_COUNT: Nees ; Argument counter used by ERROR_EXIT 
RMSRUNDWN_BUF : ; Return buffer for SYSSRMSRUNDWN cl 
0000 9016 “GORD. 22,0 ; tet lures xsi bse 
000001E3' ADDRESS RUNDWN_BUF 
RUNDWN_BUF : 
000001F9 -BLKB 22 
; Head of self-relative UETP unit block queue. 
~ALIGN QUAD 
UNIT_LIST: ; Head of unit block circular List 
00000000 00000000 «QUAD 0 
NEW_NODE : i; Newly acquired node address 
00000000 00000000 -QUAD 0 
; Shared write buffer address 
RITE_BUF : 
00000000 00000000 «QUAD 0 ; SEXPREG gets beginning and ending address 


3; List of buffer start addresses. 
BUF _ADR_LIST: 


0000022C -BLKL FILE_S2Z 
; The following is used for the INITIALIZE command file creation 
LABEL_CMD: 
50 54 45 55 20 3A ASCII \: UETP 3; «label 
00000006 LABEL _LEN=. UF ABEL. CMD 
CMD _BUF : 
3D 53 GE 45 44 2F 54 49 4E 49 26 ASCII \SINIT/DENS=\ 3; Command 
9000 iNIT_LEN=.-CMD_BUF 
000024 BLKB- DENS_LEN ; ...density 
000025 BLKB MAX BEV DESIG#MAX_UNIT_DESIG*LABEL “LEN > ..sunit 


00000357 er BLKB | MBX_SIZE 


NIN INI SIISS SPINININMNVIO OOOO WDDODOOOCOOCOWDDOCOCOOOOWWIW DDD NINN NNO 

PDL D SPs Bs Be Be BB BE EE NNN AWWW PONPOPININY*UNID 2 OOO OO OS SS OOOO 

MR —OOONOU EW (OOD NOAU EWN (OOO NOU EWN 0 OO NA UE WWI 0 OONOAU EWN OOONO 
c - 


PUPP E AANA 3 3 I | SQOCOKOO MMM MMMMNMOOVIVIIVVIINAAOMOO 


PVUPV PVD PPV LV LPVLV DV LVLIVLVLIVL VIVO VU LULVLUIUSULIUSVSVSUSVES USS USSU TST SISSON 


AIO OPOPOPONIPOPOPOPOPOPOPONOPOPOPOPOPOPIPOPIPOPONIPOPONPIPIPOPO POND 2 3 


SOOOOOOSOOOSOOOS OOOO SCOOOOOOOSOOSOOOCOOOOOOOSOOOoOO 


0000 


orm 
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5 Ree 
4 MBX_UNIT: 
0000 4 92 -WORD 0 
: e ; define a FIB for oneshot mode (Q10) 
3 $3 FIB_DESC: 
ee 28 0 -LONG FIB_LEN 
00000363' 2f 4 ADDRESS FIB 
00000101 $3 og FIB: “Lone 0.9.0 WRITE! FIBSM_ NOWRITE Read/write access allowed 
9000 999 67 574 9 ; File 1D 
000 000 ° 75 WORD ‘6 3; Directory ID 
0000 8 LONG 3; Context 
0000 7 57 “WORD 0 ; Name flags 
44 79 4 -WORD 0 3; Extend control 
0000000 7B 7 LON 0 ; Control value 
0000001C baer +4 fie _LEN=.-FIB 
037F AL MNT_LIST: Item List for mount *SE8T service 
OOOF O37F 58 - WORD hax DEV DESIG+MAX_UNIT_DESIG Device name Length 
0001 0381 2 4 WORD MNTS_DEQNAM ; Item code 
QOO000F8* 0383 5 SADDRESS DEV “NAME ; Device name buffer 
00000000 tt 586 -LONG 0 3 Unused 
0004 0388 587 WORD 4 
0004 tt 258 “WORD MNTS$_FLAGS 3; Item code 
00000398" O38F 89 -ADDRESS MNT_ “FLAGS ; Mount flags buffer 
00000000 Baa3 590 -LONG 0 ; Unused 
00000000 97 23) 0 3; List terminator 
0398 3 
0398 593 MNT_FLAGS: t flags 
00000204 Baoe 23¢ ~ LONG <<MNTSM _NOASSIST>! <MNTSM” ove” IDENT>S 
O39F 596 


<c 


own 


RMS= 
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0 
UVETP.SRC GETTAPEOS. MAR; 1 


Ul 
2 Data Structures =SEP-1984 Ayes 18) vl 
~SBTTL RMS-32 Data Structures 


OF 
ALIGN LONG 
SYSIN_FAB: 
FNM=<SYSSINPUT> 
SYSIN_RAB: 
$RAB- 
FAB=S¥SIN_FAB,~ 
ROP=PMT ,- 


Allocate FAB for SYSS$INPUT 


Allocate RAB for SYS$INPUT 


UBF=DEV_NAME,= 
USZ=NAME_LEN 


OOOOCCCOOCOOooO 
WANNA NAN AWN 
oO 
n 


09 C8 CO.WIWNI IWIN 9 nn “> > Sb SO 


INI_FAB: Allocate FAB for UETINIDEV 


$SFAB 
F <GET,PUT,UPD>,= 


<GET,PUT,UPI>,- 
<UETINIDEV.DAT> 


SS 2 SS SS SS QOD DTOOOOOCOCONO 


= 

> 

AF 
nnununwe 


INI_RAB: Allocate RAB for UETINIDEV 


SDOOCSOSCOOOOOOOOSO0O 
PRRRRR RRR 


DDB_RFA: RFA storage for INI_RAB 


000004CE -BLKB 6 


SUP_FAB:_ Allocate FAB for UETSUPDEV 


GET,- 
<UP{,GET>,- 
CR,- 


» 

> 

“Aamo 
nnnnne 


UFO,- 
<UE f SUPDEV.DAT> 


H Dunay FAB and RAB to coor to the UETP unit blocks 
3; The following FAB and RAS must be contiguous and in this order! 


DUMMY_FAB: 
$F AB- 

BLS = 512,- 

FAC = <BRO,GET,PUT>,- 

ORG = SEQ,- 

REM 


VAR’ 


BBE PANN inonorononononononon) 


PWN OOD NAME WN HO OD NAME WN SO OO NAU EWN SO OD NOUS WN OOONAULS W000 
Cc 
@ 
nn 
nun 


DUMMY _RAB: 
SRAB- 


ROP 
US2 


PDPEAEAAAAA AA AA AAA AAA AAA AAA AAAAAAAA AAA AAA AAPHAA AAPA AAHAOAAAOOOU 


SINS SI SIPRPPIPININPNININING SIFT ITFTVOOOOO@eOwoe 
SSSSSSSSSSSCOSSSSSSSOSCSCOMMAMOE ERE RER ERE EEEEOOCCOCOOOCOOOOOCO™ 


COOQCCOOCOOCOOCCOOSCOSOSOOSOSOSoOSoSoOoOSCoOO 


WANT 
“uu 
A 
> 
nm 


UETTAPEOO AX/ 
V "O05 i 


RMS~- y Data Structures 


PAAOCOOOOOCOO 


ALIGN LONG 
"SFAB- 


MS UETP DEVICE TEST FOR TAPE” 


04:26:28 EOE TP sec 


<MAGTAPE.COM>,=- 
PUT,= 


cro V04- on° 
UETTAPEOO.MAR; 1 


; Command file FAB for INIT_TAPE 


: Initialize command RAB 
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V54+008 Main Program ’ mets yi 1:30:28 LOETP SRC GET TAPEOO MAR: 1 _ ta) 


4 67 -SBTTL Main Program 
oon b88 "PSECT TAPE, EXE NOWRT , PAGE 
°96 »DEFAULT DISPLACEMENT ,WORD 
3 
0 673 : Start up the tape test. This entails some overhead necessary to cope 
0900 674 ; with both expected and unforseen conditions, figuring out just whet” 
00 675 ; devices are to be tested, tg sure we can test the indicated devices 
4 ors : and setting up writeable space for each device to be tested. 
888 o78 
0000 Bey 44 ENTRY UETTAPEOO, *M<> ; Entry mask 
6D 1079'CF ODE 0008 oa) MOVAL SSERROR, (FP) ; Declare exception handler 
000 6 ¢ SSETSFM_S ENBFLG = # ; Enable system service failure mode 
ith O87 SDCLEXH_S DESBLK = EXIT_DESC 3; Declare an exit handler 
0018 685 SOPEN FAB = SYSIN_FAB,- 3; Open SYSSINPUT 
0018 686 ERR = RMS. ERROR ‘ 
002A 687 SCONNECT RAB = SYSIN_RAB,= ; Connect RAB to SYS$INPUT 
002A 688 ERR = RMS_ERROR 
02 £1 0039 689 BBC S*#DEV RM,- ; BR if SYSSINPUT is NOT a terminal 
1E O3E0'CF 0038 690 SYSIN FAB+FABSL_DEV, 10S 
OO3F 691 STRNLOG_S LOGRAM = CONTROLLER,- ; Allow terminal user to specify... 
OO3F O36 RSLLEN = DEVNAM_LEN,- ; ...a Logiat name... 
OO3F 69 RSLBUF = DEVDSC 3... for the controiler to test 
01 50 »dD1 Q658 694 CMPL~ RO,#SS$_NORMAL ; Was a controller specified? 
— B328 244 108 BEQL PROC_CORT_NAME ; BR if it was - go process it 
0050 697 $GET RAB = SYSIN_RAB,=- 3; Read SYSSINPUT... 
005D 698 ERR = RMS_ERROR 3 ..-for the controller name 
0412°CF BO 006C $39 MOVW SYSIN RAB#RABSW_RSZ,- ; Save the name length 
01B0'CF ta 00 DEVNAR_LEN 
16 12 Bae 701 BNEQ PROC_CONT_NAM ; BR if we got penethitag 
0187"CF 14 p0 0075 70 MOVL #SS$"BADPARAM, STATUS : Save an exit status if not 
OOD8'CF DF OO7A 70 PUSHAL NO_CTRLNAME ; Prepare for message... 
4 DD 443 704 PUSHL #1 3 «+-arg count 
00741132 8F DD 008 705 PUSHL OYE TPS TEXT! STSSK_ERROR 3 «+eSignal name 
03 D 0086 706 PUSHL # ¢ «.-arg count 
11ED 1 443 a4 BRw ERROR_EXIT 3 «.-go tell of bad setup 
088 709 PROC_CONT_NAME 
OO9C'CF OIBO'CF 3C¢ 710 MOVZWL DEVNAM_LEN,DEVDSC ; Set the device name Length 
OO9C'CF DF 711 PUSHAL DEVDSC 3; Make sure... 
OO9C'CF DF 0096 is PUSHAL DEVDSC 3 «eethat the specified controller... 
Q00000000°GF 02 FB OO9A 71 CALL #2,G*STRSUPCASE 3 .+-1S all uppercase for later comaparison 
52 QO9C'CF 2 C1 QOA1 714 ADDL #1,DEVDSC,R2 3; Estimate the eventual... 
O0E1'CF 2 AO OOA7 715 ADDW R2,PROCESS_NAME 3 «e-process name length (incl. *'_*) 
DE AC rg MOVAL PROCESS NAME+8- ; Locate first available byte... 
AD 71 +MAX_PROC_NAME- 3 .e.iM process name handle... 
50 OOED'CF OAD ay ~PROCESS_RAME_FREE.RO ; ...for device name 
C3 i SUBL3 #PROCESS_NAME_FREE,- z Will the device name fit... 
51 720 Re RI 2 n0c39 fhe remaining space? 
p 1 721 LEQ =s«108 : BR if it will 
50 Pee - 7 § SUBL2 R1,R0 ; Overwrite handle otherwise... 
Ooe1'CF OF 8B BA 7 MOVW §#MAX_PROC_NAME,PROCESS_NAME ; ...and define the maximum Length 


B 15 
UETTAPEOO VAX/VMS UETP DEVICE TEST FOR TAPE 4” 


SEP-1984 01:33: AX/VMS Macro V04-00 age 
v04-000 Main Program ~$Fb= 1 382 4 :38328 UETP.SRC SET TAPEOO. MAR; 1 . 
80 F 8F OBE ; < _— MOVB #*A/_/,(RO)+ $ te handle f devi 
- i; Separate handle from device name 
60 OOF8'CF 008¢ CF 38 eS 7 § MOVC3 DEVDSC.DEV _NAME , (RO) : concatenate handle with device name 
E 04 ( 7 CLRL =(SP) ; Set the time stamp flag 
OOOF'CF OF «Bee e 8 PUSHAL [551 MARE : pet the test name 
ge DD ) ae ¢ PUSHL # ush the argument count 
00741039 8F DD Bos 730 PUSHL #UETPS tt bed bape succéss Set the message code 
00000000'GF 04 F D973 CALLS #4, G*LTBSSIGNAL ; Print the startup message 
0002'CF O08 A Oe0 7 ‘ 1SW2  #BEGIN_MSGM,FLAG Set flag so we don't print it again 
O0E> f ; SSETPRN_S PRCNAM = BROCESS_NAME : et the process name to USTTAPE O_x 
02 E1 F 735 BBC S“*#DEVS$V_TRM,- ; BR if SYSSINPUT is NOT a terminal 
66 O3E0'CF SOFS 7 : SYSIN FAB+FABSL DEV, 20$ 
gore 7 $GETDVI_S DEVNAM = SYSS$INPUT,- Get the name of.. 
OF6 738 EFN = #SS_SYNCH EFN,< 3 «device which’ may abort test 
OOF6 739 ITMLST = INPOT_ITMCST,=- 
OOF 740 I0SB = JOSTAT 
45 01865'CF E9 011 741 BLBC IOSTAT,20$ ; Avoid CTRL/C handler if any error 
011 by: SASSIGN_S DEVNAM = BUFFER_PTR,- ; Set up for CTRL/C AST handler 
0117 74 CHAN = TTCHAN 
0128 744 $Q10W_S ee, = TTCHAN,- nable CTRL/C AST's... 
0128 745 UNC = #10$ SéTMODE! 108m" CTRLCAST.= 
0128 746 BY CCASTHAND 
OOE1°CF DF 0149 747 PUSHAL nee _NAME : «and tell the user... 
1 DD 014D 748 PUSHL 
00748328 8F DD O14F 749 PUSHL ryeres aia success} 3 .--how to abort gracefully... 
00000000 ' GF 03 #=FB 812? £20 208 CALLS G*LTessiG . tes 


C 15 
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- ain Program “SEP- 726: UETP. U PEQO.MAR; ) 
v04-000 Main P SEP=1984 04:26 ETP.SRCJUETTAPEO 1 (8 
15¢ 3 
13¢ 734 ; From n+ Hine} geld and UETSUPDEV.DAT, get information which gives controller 
15€ 755 ; and unit configuration and lets us know if the setup to run this test was 
ie £28 ; done correctly. 
15¢ £38 SOPEN FAB = INI_FAB,- ; Open file "UETINIDEV.DAT" 
15¢ 75 ERR = RMS-ERROR 
168 760 SCONNECT RAB = INT_RAB,=- ; Connect the RAB and FAB 
168 761 ERR = RMS-ERROR 
17A 166 SMGBLSC_S INADR = INADDRESS,- ; Connect to UETSUPDEV global section - 
17A 76 RETADR = OUTADDRESS,- ; if it is there 
17A 764 GSDNAM = SUPDEV_GBLSEC,- 
17A = 765 FLAGS = #SECSM_EXPREG 
00000978 8F 29 } BIRD eg cm Gig 7ES9 MOSULNSES ; Was the section already there? 
° Was... 
BIAS 768 SOPEN FAB = SUP_FAB,- i «else open ‘UETSUPDEV.DAT"’ 
O1A2 769 ERR = RMS-ERROR 
0181 770 SCRMPSC_S CHAN = SUP_FAB+FABSL_STV,- ; Create the global section 
0181 771 INADR = INADDRESS,=- 
0181 ire RETADR = OUTADDRESS,- 
0181 77 GSDNAM = SUPDEV_GBLSEC ,- 
818) ore LAGS = #SECSM_EXPREG! SECSM_GBL 
3102 ae 30$: 3; We have a global section 
59 O1AB'CF OA7"CF C3 Biby a4 SUBL3 OUTADDRESS,OUTADDRESS+4,R9 ; Compute global section lergth 
at reo FIND_IT: ; Let's look for a DDB 
O1E1 ree $GET RAB = INI_RAB,- ; Get the first record 
O1E1 78 ERR = RMS~ERROR 
O36F'CF DF O1FO ree PUSHAL CONT_DESC ; Make sure... 
OS6F°CF DF O1F4 785 PUSHAL CONT_DESC i «+.that the controller name... 
00000000'GF 02 FB O1F8 786 CALLS #2,G*STRSUPCASE 3 ecets all uppercase letters 
OO14"CF 44 BF 9 OiFe 187 cHPB #*A/D/ BUFFER i Is this aD ? 
; s 
O014'CF 45 BF 91 2 789 CMPB #*A/E/ BUFFER : Is this the end of the file? 
D2 12 dD 790 BNEQ FIND _If ; If not = look again 
OO9C'CF ODF OF 791 PUSHAL DEVDSC ; We are at EOF and a matching DDB was 
OOE1'CF OF 3 13 18s PUSHAL PROCESS_NAME 3 not found, bitch about it and quit 
02 OD 1 79 PUSHL #2 i «.-arg count 
00748333 8F ODD 19 794 PUSHL #UETPS_DENOSU 3 «.-Signal name 
02 FO 1F 86795 INSV #STSS$K_ERROR,- : Set the severity code... 
: #STS$V~SEVERITY,- 
6E ¢ 79 #STSS$S_SEVERITY, (SP) 
0187°CF 6€ 00 798 MOVL (SP), STATUS i ...and save it as the exit status 
4 D 9 799 PUSHL #4 : p+ 8°9 count 
104A 1 ? Bi BRW ERROR_EXIT ; Exit In error 
; § 10$: ; We found a DDB 
OOF8'*CF OO1A'CF 01B0'CF $3 4 CMPC DEVNAM_LEN,BUFFER+6,DEV_NAME ; Is this the right controlier? 
A 5 BNEQ FIND_IT :_If not, look some more 
O4CB'CF O494'CF 06 A 6 MOVC3 #6, 1R1_RAB+RABSW_RFA,DDB_RFA ; Save the Record File Address 
OO18'CF 54 BF tf CMPB #*A/T/-BUFFER+4 3; Is srire) cor marked testable? 
ees 4 $ EQL FOUND _IT ; BR if it is testable 
SA FAO_S CTRSTR = DEAD_CTRLNAME,- ; ...and yell at user if it isn't 


<c 
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V "O05 Main Program o7SEp- 1984 iH 36 38 UETP.SRC GET TAPEOO. MAR; 1 . 
GA 1 OUTLEN = BUFFER_PTR,= 
SA 1 gy iew = FAO _BUF,- 
4A 1 Pp = #DEVDSC ; Bad controller designation 
0187'CF 14 00 rt 1 OVL #SS$_BADPARAM, STATUS ; Set return status 
ge 44 rt i > tg BUFFER_PTR kes 
00741132 oF DD $f 18 PUSHL #UETPS_TEXT!STSSK_ERROR : ... 
OF FF Rf 8 13 BRW ERROR_EXIT : We can't test what we can't test 
0 y FOUND_IT: ; We have the right controller - let's look for UCB's 
79 § $GET RAB = INI_RAB ; Get a record 
3 ERR = RMS ~ZRROR 
O3S6F'CF DF 028 : 4 PUSHAL sont _DESC™ ; Make sure... 
O36F 'CF OF 8 8 5 PUSHAL CONT DESC 3 «eethat this Line... 
Q00000000'GF 02 FB 9 : § CALLS 2, OS TRSUPCASE s eeeiS all uopercase letters 
0014'CF 55 8F 7 97 Be? CAPE aa **kouy BUFFE : is this a uC ? 
5 $s 
0014'CF 44 4 + 8 5 beer PhDs. BUFFER ; My spts a DDB? 
3 es 
Oo1m'cF 45 BOOT OOSAP 631 CMPB 4s #*A/E/, BUFFER : Is this the end? 
11 13 8 mf Ht BEQL 20$ ; BR if yes 
i HE: 10$: ; Something is wrong with the contents of UVETINIDEV.DAT 
O17F'CF ODF 6 AF 836 PUSHAL ILLEGAL_REC ; Then this is an error in the record 
dD 8 Be 837 PUSHL ; Push the error message 
00741132 8F ODD 8 S35 PUSHL #UETPS_TEXT!STSS$K_ERROR ; Push the signal name 
03 D 8 BB C83 PUSHL ; Push the temp arg count 
OFB8 1 a re BRwW ERROR_EXIT : Finish for good 
: He) 20$: : Found another DDB or END 
0138 = =31 : Bed BRw ALL_SET 
: i 30$: ; We found a UCB 
0018'CF 54 BF 91 C 48 CMPB #*A/T/ BUFFERS :; Is the unit pegged? 
A 12 C9 = «B49 BNEQ FOUND : If not, look some mor 
a: 3B ce 29 SKPC oaks fa mma _UNIT_DESIG,- ; Find out where unit mamber really is 
0 e 5 26 DECL R i Units must all be at least one digit 
61 50 DS : SKPC ele RO, (R1) : Skip leading 2 zeroes 7. the unit 
06 D 4 INCL 3; Compensate for DECL above 
OO9C'CF O1BO'CF Al D9 55 ADDW3 ha Many LER. DEVDSC : Calculate device'unit gtring ke Length 
5 01B0'CF HS E1 28 MOVZWL sie : Offset to unit number in DEVDSC 
OOF 8'C 61 50 8 E6 : MOVC cy, + Re AME (R2? : Append unit number to device 
ee 38 SGETDEV_S bevN VNAR rs BEyesc.= ; Get the device characteristics 
= 
7 Orta ge GA 1 60 MOVZBL DIBBUF+¢DIB$B_DEVC LASS R7 ; Save the device class 
8 O114°CF 9A 6 861 MOVZBL DIBBU UF +D1BSB_DEVTY PE,RB ; Save the device type 
86 SFAO'S CTRSTR = CS1,- ; Make it into a string 
? py Tour = FAO_BUF,- 
mt 
= 
OIA7"DF 59 OO14"CF 06 39 8 MATCHC os. BUFFER,R9,@OLTADDRESS ; Find the device class and type 


1E 


59 = 0014" CF 96 
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0 Page 
“19 UETP.SRC SES TAPEOO™ MAR; 1 . 
Hts 405 ; BR if it was found 
FAO_S CTRSTR = CS3,- ; Try for full class support 


OUTBUF = = £90. BUF ,- 


Pp 
MATCHC + BUFFER.R9,@OUTADDRESS ; Find the device class only 
BNEQ 50$ ; BR if not found 


3; Device type and class are correct - what about test? 
MOVZBL ST_NAME,R ; Get the test name length 
(R3), Fee NAME +8 : Are we the right test 
BEQL 80 o$ : BR if yes 


; Can't make heads or tails out of this device - bitch and quit 


PUSHAL DEVDSC ; Push device not supper red message 
PUSHAL nace tatais ; Parameters on the stack 
PUSHL #2 ; Push the argument count 
PUSHL #UETPS_DENOSU 
INSV #STSS$K-ERROR,- 

#STSSV-SEVERITY 

#STS$S_ SEVERITY: (SP) ; Set the severity code.. 
ATUS ; s.eand save it as the exit status 


(SP), STAT 
#4 


; Push the partial arg count... 
BRW ERROR_EXIT 


; «eeand split this scene 


v 
co 
n< 
=e 
F 

Sete tee 
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UETTAPEOO VAX/VMS UETP DEVICE TEST FOR TAPE 16-SEP-1986 01:33:38 VAX/VMS M 
VE 4-000 green 18Be Bl i3a:38 abe 


0 Pa 20 
Main Program 4:26: UETP.SRCJUET #1 APEOD. MAR; 1 = (9) 


7 94 ;+ 
4 95 ; The following code dynamically yee gy ontey h sonery for a unit bloc 
38 ; a device dependent porpes ser area gl qre The unit block is eee 
7 97 ; into the queue header UNIT LIST. gl uf alizes the unit block. 
HB Saleetitoloieeantt toch oseteavarnasthasscoe™s mel 
3 . Ww 
7 0; 
7 aes 3 terme n mem manrnnwae + eeeeecce 
f an8 ; UETUNTSL_FLINK ! ! 
, 904 : UETUNTSL_BLINK | ae ! 
Me $06 ; UETUNTSB_TYPE ; Te 
0 i 908 ; UETUNTSW_SIZE ft contains DEVDEP_SIZE + UETUNTSC_INDSIZ 
0375 310 : UETUNTS$B_FLAGS oe ORES. : 
0375 31g : UETUNTSWLCHAN ee 
bate 31 ; ee : ; + i UETUNTS$C_SIZE 
0375 316 : UETUNTSL_ITER ! ! ' : 
0 75 91 3 powwow eee meee os ! 
0375 98 : UETUNTST_FILSPC ! ! i 
0375 919 ; MV/MAL\/ ! 
0375 920; NAM$SC_MAXRSS bytes ! 
0 ie 4 13 t/NINTININININA ‘ 
8 75 9 ¢ : UETUNTSK_FAB — woe mecoee i i 
0 fe 924; ' ' ' 
8 7 925 ; PNAYAYAVAVAYAVA ! 
7 9 § 3 FABSC_BLN byses ! 
f 2 8 : [eV i 
7 930 ; ' ! ! 
7 931 ; INVA ! 
7 9 § 3 ABSC_BLN bytes ! 
4 4 t 3 VV ! 
7 4 5 : Us TNT SS DEV DEP tooswcccecccenons TE 
7 § 3 UETUNTKS_DENSITY ! * 
4 | : TAVAVAVAVAVAVAVE 
75 «9 § ; LAVNIAISTINIVING! i 
73 $4) a 
7 ae ; UETUNTSQ_DEVDSC ! ' i 
7 : Goweccecececeescn > ' 
7 $45 ws, : bo-===DEVDEP_SIZE 
25 346 ; UE TUNTSK_DEV_N , 
75 947 ; ut IVAVIVIVAVAVAVAY: i 
to 948 MAX DEV DESIGs ; 
75 949 ; MAX"UNIT DESIG i 
75 950 ; 1 NATNI\IIATAY! 
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¥54~008 Main Program 823E p= 1984 4:30:28 LOETP. SRC GETTAPEGO MAR; 1 vets (9) 
' 


. 1 1 
$34 3 ET 1$ oes ’ 
: UETUNTSB_BUFPTR ! ! : 
7 954 3 oN t$ommfoany ' 
7 955; UETUNTSB_DENSPTR ! ! v 
7 328 3 Gower ree town} mee wae me 
7 93 ; UETUNTSK_RBUF =! ‘ 
7 9 8 3 ! fooeuwoewa > ' 
7 959 ; INJ\J\/\AN\/N/NANI ta<e~= READ_SIZE 
7 960 ; READ buffer ! 
7 961; VANININIVININING! : 
7 308 3 ! ! v 
7 3 teeeeeoe nce seeece + eeeecesce 
7 964 :- 
7 965 
7 oe8 60$: SEXPREG_S PAGCNT = #PAGES,~- 
75 6 RETADR = NEW_NODE ; Get a new node of demand zero memory 
DF 5D BA 896 INSQTI @NEW NODE, ,UNIT_LIST ; Put the new node in the unit List 
 o 91 38 MOVL NEW NODE ,R6 ; Save a copy of its address 
91 9 96 970 MOVE  #1,QETUNTSB. TYPE (R6) : Set the structure type 
F BO O39A 971 MOVW  #UETUNTSC_IRDSIZ+DEVDEP_SIZE,- 
A6 9 376 UETUNTS$W_SIZE(R6) ; Set the structure size 
09 «81 A 97 ADDB3 #FILNM_LEN,DEVDSC,- 
A6é A 974 UETUNTST FILSPC(RO) ; Set the device name size 
CF 28 A? 975 MOVC3 DEVDSC,aBEVDSC+4,- 
AG A 976 UETUNTST FILSBC4f (RG) ; Save the device name 
99 38 380 997 MOVC3 #FILNM_LEN,FILNM,(R3) ; Rest of name 
F 6 44 MOVC #FABSC_BLN+RABSC_BLN,- 
CF A 97 DUMMY _FAB,UETUNTSC_FAB(R6) ; Save a FAB and a RAB away 
C6 OE co 980 MOVAL UETUNTSK_FAB(R6) ,R7 ; Save the FAB address 
8 ) C 981 MOVAL tt nae ths {fle ; Save the RAB address 
i) CA 9 ¢ MOVL R7 ,RABSL_F AB(R8) ; Set the FAB address in the RAB 
Ag 9 CE 9 MOVE -UETUNTST FALSPC(R6) .~ 
A D1 984 FABSB_FNS(R7) ; Set the FNS field in the FAB 
yy] DE D3 985 MOVAL UETUNTST FAL sPcet (RO) = 
A + 986 FABSL_FNACR7) 3 Set the FNA field in the FAB 
66 ~=—ODE D 987 MOVAL (R6),RABSL_CTX(RB) ; Set the UETUNT address in the RAB 
66 «ODE 43 988 MOVAL (R6), FABSL_CTX(R7) 3 and in the FAB 
C6 «ODE E 989 MOVAL UETUNTSK_DEV_NAR(R6),- ; Setup addr of device name descriptor 
C6 E4 990 UETUNT$SQ-DEVDSC+4(R6) =: in the unit block 
CF OD 7 991 MOVL_ DEVDSC,UETUNTSQ_DEVDSC(R4) ; Setup device name Length 
CF 2 E 998 MOVC3 DEVOSC,DEV_NAME,- 
6 F599 UETUNT$K_DEV_NAM(R6) =; Save the device name 
on F 994 BRW FOUND_IT ; We are doing so well let's look 
FB 995 $ for more UCB's 
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F 97 | 
FB 3 ; Arrive here when we have the Gevice ¢ configuration. In normal or loop forever 
FB 99 ; mode, set a timer far oneven n the future ayc® that we can do a reasonable 
FB 1 9 ; set of tests before the timer expires, but if our device gets hung, the 
FB 1 3; program won't waste too much time before noticing. Let one-shot mode be a | 
4 } § 3 special case. | 
FB 1004 ALL_SET: 
0200'CF 03 FB 1005 TSTL NIT_LIST ; Anything to test? 
16 =» 1 FF 1 $ BNEQ $ ; BR if yes 
O1SF°CF DF 0401 1 PUSHAL NOUNIT_SELECTED ; Else set up the error message... 
1 DD 603 1 3 PUSHL ; «+-argument count... 
00741132 $F DD 04 1 PUSHL ayers. TEXT! STSS$K_ERROR : e+eSignal name... 
03 ODD ret 1010 PUSHL # ; .+.and parameter count 
0187'CF 14 0 O4OF 1011 MOVL #Ss$ 31 deta STATUS ; Set return status 
0E61 1 a8 1916 108s BRW ERROR_E 3 +..and give up, complaining 
417 13i% 3 SEXPREG_S- Get memory for common write buffer 
ees 1015 “PAGCNT = #WRITE S1ZE+5117512.- 
pear 131§ RETADR = WRITE_BuF 
a 13i8 3; Load write buffer with random data. 
6 10°CF DO O42C 1020 MOVL WRITE_BUF ,R 3; Get buffer address 
57 *$0009609 8F D0 0431 19 1 Fe MOVL  #WRITE_ Shies3/6, R7 t Longword size 
megs SpE YU gam? eumert mgmt fae rts nme 
F157 «FS gece 18 2 SOBGTR R7,20$ - : Continue until done 
Bee) 18 7 : The following code gets buffer starting addresses. 
447 1028 : Buffers start at different places in the common buffer 
gee? 1080 3; to vary the data pattern between records. 
. A 1 SZ_LIST,R 3; Address of size list 
28 atthe DE beer is MOVAC 5 F-AOR List, be ; Address of address List 
59 O214°CF 00 Bee) 9 2 sos, MOVL BRiTe _BOF +4, RO : Get end of buffer 
88 59 87 C3 0456 1035 ; SUBL3 SRD} * 89. CRSDe ; Subtract size to get start address 
67 DS O45A 19 $ rstt {nv : ine - list? 
fi oS te¢ 103 PUSH #0 : lero indicates sterive (not loop) 
0002"CF 04 A8 seo 10 § in gh TO_UPDM, FLAG 3; OK safe to update UET oe be tae DAT now 
OABI'CF O01 FB 04 1040 LLS  #1,MOONT"TAPE ; Let*s go mount the tape(s) 
rH 1041 STRNEOG 5S COGNART= = MODE ; Get the run mode 
ten 1008 RSLAUF = : BUFFER PTR, ; 
. a h BUF FER 3; Convert to upper case | 
oo1neer ait 4 : 4s a #470 8) Bd FFER 3; Is this a can shot’ 
0014°CF 4C 4 7 430 ! ‘} ence Zan’ t/ BUFFER : Is this loop? | 
0002'CF 3 is rhs : f 408 BISW2 #LOOP_MODM,FLAG ; Set loop mode 
° T $ there only one unit to test? 
tag 3 5 tap } 26 Bear Re WARTS : If only one Un t go ahead and start 
5B «OOTAF'CF «669A =(04A4 «(105 MOVZBL UNIT_CNT,R11 ; Get unit count 
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UETTAPEOO VAX/VMS UETP DEVICE TEST FOR TAPE 16-SEP-1984 01:33: AX/VMS M v04-00 P 
V64~000 Main Program miter y an Seer ees Mm ct st TR STD eet a 3, 
B D7 O6A9 1 DECL. R11 ; $ btra t first unit 
pelt 28 CS Q4AB 1 2¢ tig R11 ht hb 9 ada ; d thirty secends of run time for 
A 363" CF CO 0481 1 36 ADDL2  THREEMIN,R1 ; “- unit after the first 
00D9' CF A CE 0486 1 MNEGL R10,TIME j wg ok for delta time 
08 711 4BB 38 ies BRB RESTART 
0002"CF 10 AB O4BD 1060 ° == BISW2_ FONESHOT_MODM, FLAG ; Set one shot mode flag 
0301 31 4c 6 BRW ONE_SHOT 
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-SBTTL Test the Magtape 
66 RESTART: ; Here we start testing in normal and loop modes. 


roe ds 


r~ 
o 


PARRA ARAAARBARAASAAAAAALALELEAA LASER SARA R EEE ARLE ERASER EERE EERE SESE ERS E EES SY 


This routine starts off each unit by first synchronously coeat ing a tape 
file and connecting to it, then it starts an asynchronous WRITE. Once started, 
all units are then run asycronously using AST's. WRITES are Gont inued until 
all buffer sizes in the buffer size List are written. The file is CLOSEd 
and SPACEd in reverse to prepare for reading the records. Then READs are 
done to the end of the file with each record data checked. When all records 
have been read a new file is started with a CREATE, and WRITEs are started 
again. This continues until a timeout (three minutes + <the number of units 
- 1> * 30 seconds) occurs which was set at the start. After the timeout a 
thirty second watch dog timer is set and each unit completes the file it is 
processing and does a REWIND. If loop mode is set, the whole routine is 
repeated indefinitely. 


SSETIMR_S sortie s [Ine 3 Testing will continue until this 
= Pens 
ASTADR = TIME_OUT,=- : 
REQIDT = #REQYDT1 3 
BISW2 SIESTA BLARTALFLAS 3; Testing has started 


0002'CF 


57 O200'CF 0000 CLRB RT_CNT Initialize units started counter 


A N 
ADDL3 M#UNIT_LIST,UNIT_LIST,R7 ; Set the unit block List header 
LOOP: ; We return here until all units are started. 
DECB UNIT_CNT 
BBC #UETONTS$V_TESTABLE,- 
UETUNTSB_FLAGS(R7) ,20$ 


INCB $ N 
BISB2 #UETURTSM rest TEP e= 
UETUNT$B_FLAGS(R7) 
SCREATE- 
FAB = UETUNTSK_FAB(R7),- 
ERR = RMS_ERROR 
; BR on error 


BC —- RO, 20 : 
MOVAL _UETUNTSK_RAB(R7) ,R6 : Get RAB address 
SCONNEC T= 3; Connect RAB 


ooo 
No 
oomoew 
Oooo 
omc 
aa 
o 
,~ 


Decr the number of units to start 
If unit not testable skip to next one 


Sete 


Count the units as we start them 
Let's flag tape as modified before we 
---do it in case we get an error 
Create a file 


53. 0B A? 
oe’ 96 


PRP RE PR RRR RRR RRR RP RR RR RRR RRP PPPS 


PODODOOD NNN OUP UN110 FFT ET BND FF DF AFD PPS TST TSS ISIS 


39 
56 ©0160 


1 
1 RAB = (R6),- 
1 ERR = RMS_ERROR 
24 30 9 BLBC R 3; BR on error 
01€0 C 4 CLRB  UETUNTS$B_BUFPTR(R7) : Initialize buffer list index 
2 a6 O3D5'CF 8B MOVW § BUF_SZ_LIST,RABSW_RSZ(R6) ; Set first buffer size in RAB 
8 AG O0218°CF D MOVL BUF ~ADR_LIST,RABSC_RBF (R6) ; Set first buffer addr in RAB 
SWRITE- ; Write a record 
RAB = (R6),- 
SUC = AST_WRITE,- 
ERR = RMS~ERROR 
00 50 «=«€9 BLBC RO,208 ; BR on error 


20$: ; Time to start next unit - if there is more 


ADDL2 (R7),R7 ; Next unit block 
CMPL R7,#UNIT_LIST ; Done all units? 


ee ak a et ed 2 = = =  —) — — — — —) — — — 9 — 49 —) — 3 2 — 9) > — ss 8 | ss | 4 a ss © 2 2 > a a a — 4 a 


> 

~ 
SOSSCOCSOCOCCODSOOSOSODOOSCOSOOSOOSOO OC COO SD OOOO OO OOO OOOOOO 
COONAN E WN ODONAN EWN 2 OOONAUE WN 2 ODO NAUEWN CO OONOULWN OOO 


PUPP PTAA IAI IAI 


Peers 


ooooozou'sr $7 bt 


<c 


UETTAPEOO 
04-000 
2F 
01C6'CF 
0D 


01C6'CF 
13 


0002'CF oon 


DE 
FF66 


2 04 AC 
5 18 A6 
on 3 


i? io. S 
3 


38 AG) OF FFFFFFB uF 


5 04 AC 
5 18 ae 
0 

21 0B A7 
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11 


04 


60$: BRW LOOP 


WOO O00 00000009 09 09 000008 8 NINN NOAA 


COW 9 DONNA S00 DO  S COON D 


38 


AST_SPACE: 
WORD 


SSIS SSDP DDE DPD DDD De TT Be Be BS BB BB AAI rononorononornonorn 


NAAR AR 9 OD NA UNE AID CO OD NA UNE WAIN  O OD NAN E WIN 3 O OD NAUE UW SOO ONOUS wr 


era ah ah ab Ab Ab Ab dh Ab ah Ab dh Ab dh Ab ab db bh ab db ab db ah Ah ab Ah Ab Ab Ab Ab Ab ah ah ah sh ab Ah ah dh dh db dh ab ah dh ab eal 


MmmMmmnooVTCOVCCTCCMOFAOAOOOOW>F>>r>r>yY YP 
POKLOMMMMMMMOCVTTS NS MM MMMOH & 


"SrSEp=198e Ou:26:28 LOetPrsncSuErrAPEOo-man:1 "29° (93, vl 


BNEQ 60$ :; If not, start another 
TSTB = START_CNT : Any unit started ok? 
gure 40$ ; BR if none 
308 HIBER_S ; ALL testable units started- wait here 
TSTB SAAR CNT ; Have all units finished? 
408 BGTR 0$ ; If not branch 
SCANTIM_S ; Cancel pass timer if no units started 
3; sucessfully, otherwise cancel 
; watch dog timer. 
BICW2 #TEST_STARTM,FLAG ; We are done testing - clear flag 
$08 BRw END_PASS ; Exit the pass 


Wait here for all to finish 
Go start next unit 


SHIBER_S 
BRB 30$ 


: Enter here after a WRITE. Issues t xt WRITE unless we are at 
3 - ome List, when it SPACEs gttey over records to prepare 
; s. 


AST_WRITE: 


WORD vat" R3,R4,R5,R6,R7,R8, R9 R10,R11> ; Entry mask 

MOVL AP) RG Get RAB address 

MOVL RABSL at R7 : Get unit block address 

BBC AVE TURY SV : If unit not testable quit trying 


eS 
> 


ADDB SEL BUFPTR(R7) ; Set index for next buffer 
MOVZBL sate BUFPIR(R), R8 ; Get buffer List index 
sia" BUF _SZ_LTST : ig it it the terminator? 
MOVL #-FILE_SZ,RABSi_BKT(R6) ; Set "Seeks to skip(reverse) 
SSPACE- RAB & (RE :; If done writing, get ready to read 
SUC = AST Pace, 
RR = RMS “ERROR 
108 BRB 0$ 
MOVW BUF _SZ_LIST(R8) ,RABSW a fr 2 Set RAB buffer size 
MOVL BUF ~ADR_LIST(R8) ,RABSC_RBF ; Set buffer address 
SWRITE- $ unite the next record 
RAB = (R6),- 
SUC = AST_WRITE,- 
ERR = RMS"ERROR 
20$: RET 


; Entered fr from a space function. Starts up a READ on the first record 


n the le. 


. “M<R2,R3,R4,R5,R6,R7,R8, R9 R10,R11> ; Entry mask 
MOVL 4(AB), RO ; Get RAB address 

MOVL : Get unit block address 
BBC FUE TORT SV ABLE : If unit not testable quit trying 
UE TUNTSB vptestae ie 10$ 


VO4-000 


SOOrOOoororr 
UNOONIN OO 


0008 


SOMODOMrmOm Madr 


oooc's 
00741132 ar 


L 15 
VAX/VMS UETP DEVICE TEST FOR TAPE 1 
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04 


DF 
DD 
dD 


DOOOCO TTT HmMm 


OOOOCOCOOCOCOCOSCOSOOOSOOOSOOOOOOOSoOO 
ROD NNN ESS OWN OU MH HHH MIMIOCON—o 


DPRAPEAEALAARAAAA AAAS 


o 
r* 
o 


117 CLRB UETUNTSB BUFPTR(R7) 
OVW BUF _SZ_LIST,RABSW_USZ(R6) ; 

MOVAL BUF ONTst _RBUF (R7) 7RABSL_UB 

SREAD- 3 
RAB = (R6),- 
SUC = AST_READ 
ERR = RMS “ERROR 

10$: RET 


; Entered from READ function. 
3; CLOSEs the file. 
AST_READ: 
. WORD 
MOVL Had, 
MOVL ABSL 


$FAO_S CTRSTR ="DAT A_ERR_M MSG, - ; 


AAAAAIPIPIMPINIPIPINPIDINIDS 2 9 PP?  MQOOODOOOCOCOCOCOOOOOOOOOOWMMmcoccco cae - 1 


PUN OOD NAME WIN 9 OD NAME WN OOO NAME WN 0 OD NAME WN OUONAOULS WO 


PROP SPOPOPOPOPOPOPONONONOPOPOPOPONONONPONUNUNOPOPOPOPONONONINONUP PUP) 9 


ee ee me ee ae ed ed ed = ed ds = 8 2 3 3 SS = 3 2) 3 8 — — 3 — 3 2 2 


QUTLEN = FFER_PTR, 
pT ks 6 BUF, - 

PUSHAL BUFFER mal, : 
PUSHL F001 : 
PUSHL HUETP TEXT!STSSK_ERROR ; 
PUSHL ERROR COU ; 
PUSHAL PROCESS NAME 
USHL #*x10002 
PUSHL  #UETPS 
CALLS #7,G*LTES 
$FAO_S CTRSTR 

OUTLEN = BUF R,- 

QUTBUE = FAO_BUF,- 
PUSHAL BUF FER_PTR : 
PUSHL : 
PUSHL #UETPS_TEXT!STSSK_ERROR ; 


~$EP=1986 04:26:28 


: Initialize 


Checks the record 
: another READ, unless at the end of the buffer s 


“M<R2, Ae oR4,R5,R6,R7,R8, R9 R10,R11> 


BBC FUETURS SV. re oa eRe BLE, 
dd FLAGS (R ),05$ 

MOVZBL UETU UFPTR(R7S,RB ; 
MOVL UF wee T(R8) ,RO ; 
MOVL BUF “ROR List T(RBS,R10.—: 
MOVAL UETONTSR_RB BUF(R7S,R11 
BRB 

05$: 
BRW 40$ 3 

10$: ; Compare data read to data writtem 
CMPB (R10)+,(R11)+ : 
BNEQ PY 
SOBGTR R9,10$ : 
BRW 25§ : 

208: ; Output data compare error message 
INCL ERROR 3 
MOVAL UETUNTSO “DEVDSC.(R7) RS ; 
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uffer list index 
Use ist List entry 

; Read buffer address 
Read ist record 


i; Entry mask 

: 6e t RAB address 

Get unit block address 

If unit not testable quit trying 


Get buffer List index 
Get size of Last read 
Get write buffer address 
Get read buffer address 


Branch byte won't reach 


Check the byte 
BR if mismatch 


; Do the whole buffer 
; Done the whole buffer 


; Bump the error count 


Get address of unit name descriptor 
prepare message 


Unit name descriptor 

»+-push error msg adr 

ve opuap arg coun 

«+-push signal name 

«»-and the error count... 
»..OUr OWN Name... 

--.and the argument count... 


ERBOXPROC ! STSSK ghnda"’ : «e.and the signal name... 


and print the error 


= Breen PT MSG, -";"p prepare message 


; Unit name descriptor 
: prepped ¥ unit message 
; Ar 

: se co cele and severity 


ust read and starts 
ze List, when it 
| 
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FB AC 1235 cath G LIGsS1ENAL ; and print aaesege 

BA 06B3 1 : BICB2 #UETUNTSM TESTABLE ~ : Mark unit untestable 
685 1 UETUNT$B_FLAGS(R7) 

97 0687 1 8 DECB START_CNT i; No more testing for this unit! 

14 Q6BB 1 BGTR 40$ 38 there are still units running 
6BD 1240 SWAKE_S ; Wake up the start routine so testing 
6C8 124 3; will end (no more units) 

0+ bees 1568 ass: ET 

0 Q06C9 1244 ADDR #4, UETUNT$B_BUFPTR(R7) ; Set index for next buffer 
A 06CE 1245 MOVZBL UETUNT$B_BUFPTR(R7),R8 : Get buffer List index 

D 6D 1 rt yi 3 Bue -SZALTST (RB) 3; End of List? 

1 607 124 EQ $ 3; If not oak 
609 1248 $CLOSE- 3; End of this file 

0609 1249 FAB = UETUNT$K_FAB(R7),- 
06D9 1250 SUC = AST_CLOSE,=- 
pepe 1251 ERR = RMS_ERROR 

D6 O6EC 1 26 INCL ITERATION ; Count the files completed 

11 bers : ez 30s BRB 40$ 

BO der 1255 MOVW BUF _SZ_LIST(R8) ,RABSW wee Set next size 

DE O6F8 1256 MOVAL UETONTSK_RBUF (R7) ,RABSL_UBF (R6 § s"Set reed butter address 

O6FE 1257 SREAD- 3 Reed the next record 
O6FE 1258 RAB = (R6),- 
O6FE 1259 SUC = AST_READ,=- 
Gre 1260 ERR = RMS~ERROR 
04 Bor | $ 40$: RET 

14} 1 of Entered from CLOSE function. Starts a new file with ee unless 
B51 : rt: : an end-of-pass timeout has occured, then it does a REWIND dio. 
710 1266 AST_CLOSE: 

OFFC at 1267 es -WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ; Entry mask 

y)) fie 1268 MOVL 4 (AP).R6 ; Get FAB address 

DO 0716 1269 MOVL FABSL_CTX(R6) ,R7 ; Get unit block address 

E1 O71A 1270 BBC #TEST ByERY avanti 3; BR if normal time-out has not occured 

E1 07 1271 BBC #UETURTSV ABLE. : If unit not testable quit trying 
7 1 ie UETUNTSB_ Flacstr ) 20$ 

DE 0725 127 MOVAL _UETUNTSK~RAB(R7) ,R6 : Get RAB address 
72A 1274 $ASSIGN_S- ; Get channel number for async rewind 
72A 1275 “DEVNAM = UETUNTS$Q_DEVDSC(R7),- 
72A 1 6 CHAN = UETUNTS$SW_CRAN(R7) 
73A 127 $Q10_S- ; Rewind to BOT 
73A (1 8 cnAN = UETUNTS$SW_CHAN(R7),- 
73A 127 UNC = #10$ REWIND! 103 $ NOWAIT,- ; Do it asycronously 
4 rn ! ? RSTADR = = AST_R EWIND,=- 

AM ae 
75E 1284 SCREATE- 3; Start a new file 
75E 1285 FAB = (R6),- 

75— 1 6 SUC = AST_CREATE,- 
75— 1 ERR = RMS"ERROR 

04 rer ! 3 208: RET 

179 } ay ; Entered from CREATE function. Does a CONNECT to start writing again. 
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2 1 1398 AST_CREATE: 
OFF 7 WORD —“M<R2,R3,R4,R5,RO,R7,RB,RI-RI0,R11> Entry mask 
56 04 AC DO O77 i 94 MOVL  4(AP).R6 : Get FAB addre 
5 8 AB OD 776 «1295 MOVL FABSL_CTX(R6) ,R7 3 eet iB block address 
01 €1 O77A 1 96 BBC MUETURTSV_TESTABLE,-  ; If unit not testable quit trying 
1¢ 0B A7 77C 109 UETUNT$B_FLAGS(R7), 10 
56 0160 C7 pF 77F 1 98 MOVAL UETUNTSK~RAB(R7) ,R6 : Get RAB addre 
01c0 c7.—s FC BFE C«90s« 0784 «109 MOVB _#-4,UETUNT$B_BUFPTR(R7) : Initialize the buffer list pointer 
78A (1 89 SCONNECT=- ; Connect the RAB 
78A 1301 RAB = (R6),- 
78A 1 06 SUC = AST_WRITE,- 
78A 1 ERR = RMS~ERROR 
04 138 4 10S: RET 
79C «(1 § ; Entered from a REWIND Q19. Decrements the active count and issues a WAKE to 
079C 1 3; the start routine. 
079C 1308 
o79¢ 1309 AST_REWIND: 
OFFC 079C 1310 .WORD “M<R2,R3,R4,R5,RO,R7,RB,RI, 10 R11> 4i Entry mask 
56 04 AC DO O79 1311 MOVL 4 (AP),RO’ : Get RAB address 
57 18 A6 DO O7A2 1 \¢ MOVL RABSL ae tX RS? R7 : et unit block address 
01 £1 O76 131 BBC #UETURTSV ESTABLE.-  : If unit not testable quit trying 
1A 0B A7 O7A8 1314 UNTSB_ FLAGS CR )°10$ 
O7AB 1315 SDASSGN_Se ; Release channel 
O7AB 1316 CHAN = UETUNTSW_ CHAN(R7) 
01C6'CF 97 0786 1317 DECB START. CNT ; Decrease active count 
O7BA 1318 WAKE_S 
04 07C¢5 1319 10$: RET 
0766 1320 
0766 1321 
07€6 1322 


; Wake up the start routine 


KTOMMMNVOOWZ EK KCK ITO ™*MOOOZ Sl KOK ITO *MIOOW!S Sr KCK TCO *MOOOZ Sr KOrHre TOA MMOOW 


B 16 
UVETTAPEOO VAX/VMS UETP DEVICE TEST FOR TAPE 16-SEP-1984 01:33: AX/VMS Macro V04- 
v54~006 SrSEp=19be 04:26:28 


of” Page 29 
Test the Magtape UETP.SRCJUETTAPEOO.MAR; 1 (14) 


ch nat 


NAA.AA.AAAAAAAA AWWA AWWW WIWINININI AAA NAIAANI NN 


; ONE SHOT MODE = This routine performs synchronous Q10's to verify the 
; testablity of each unit. A record of random data is uritten, read in reverse, 
3; compared and if no errors are detected the unit is marked testable. 


ONE SHOT: 


$SET FM_S ENBFLG = #0 ; Disable system service failure mode 
57 O200°CF Q00000200'8F (C1 ADDL “#UNIT_LIST,UNIT_LiST,R7 ; HH the unit block List header 
ONESHOT_LOOP: j; Repeat for each unit 


01 E0 BBS #UETUNTSV_TESTABLE,=- 3; If unit not testable skip to next one 
03 OB A7 UETUNT$B_FLAGS(R7) ,5$ 
0123 «31 $$ BRW NEXT_UNIT 
0098'CF 57 DO : UNTBLK : Save address of current unit block 


MOVL 
SSETIMR : recur = ONEMIN_DELTA,- ; Set a watch dog timer 


= 
ASTADR = UNIT . TIMEOUT ; Where we go if something hangs 
$ASSIGN_S- ; As sign a channel to the tape unit 
“DEVNAM = UETUNT$Q_DEVDSC(R7), 


C(R 
CHAN =, UE TUNT$W~CHAN(R7) 


DAA GSA ES BS BS BS ES BB AAI NIWWWAAAIOPOPONIPOND 


C8 NIA NE WIP = © OOO NIA UME WWII SO OOO NA UE WWI CO OOO NIA UE WIN O OOONIO UNE 


1 
1 
1 
1 
8 1 
1 
D9 «1 
D9 «1 
d9 1 
DB 1 
DE 1 
O7E1 1 
O7E1 1 
O7E6 1 
1 
6 E6 1 
1 
ae 
018B'CF 50 bO 0809 1 MOVL RO,10S Save return status code 
012A 30 8 0 : BSBW ERROR_ CHECK ; Check for errors 
8 : 3; Create and access the file 
10 88 9 1 BISB2 #UETUNTSM ett D.- ; bet. $ flog tape as modified before we 
OB A7 0 1 UETUNT$B_FLAGS(R7) i_++-d0 it in case we get an error 
0 1 $Q10W_S CHAN 2 SeTUNt Su CHAN(R7), 
0 1 FUNC = #10$_CREATE! 10S “ACCESS! 108M CREATE,=- 
8 15 1 10SB = IOSTAT,=- ; Address of 1/0 status word 
1 1 Pi = FIB_DESC,- ; FIB descrteter 
8 eS P2 = #ONESHOT_DESC ; Name descriptor 
OOFD 30 8 ; ' BSBw ERROR_CHECK ; Check for errors 
: : ? 3; Write a block of random data 
O83E 136 $Q10W_S CHAN = UETUNTS$W_CHAN(R7),~- 
O83E 136 FUNC = #10$_WRITEVBLK,- ; Write virtual block 
0 Ha 136 10SB = IOST sy 3; Address of 1/0 status word 
O83E 136 Pi = @WRITE B 3 Random data buffer 
3E 136 P2 = #WRITE “ae ; Byte count 
0006 «§=6—30 ° ! BSBW ERROR_CHECK ; Check for errors 
? \ $3 3; Preform a spece reverse zero blocks so that the ACP will allow read access. 
O37B'CF DS O $3 1371 CLRL FIB+F IBSL_CNTRLVAL ; Set up to space zero blocks 
04 B60 , 3 ie MOV 4 ye 33 SPAC ; Set up for space function 
0379'CF 6B 137 FI6$W_CNTRLFUN 
6— 1374 $Q10W_S CHAN. = UETUNTSW UHAN(R?) - 
6— 1 fe FUNC = #10$_ACPTONTROL,- 3 Perform ACP control function 
bee : 4 I SB = = iis’ Res Address of 1/C status word 
OOAA 30 a8 : 4 BSBW ERROR “CHECR ; Check for errors 
891 1380 ; Read the file in reverse 
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91 1381 
4 1 ee $Q10W_S CHAN = UETUNTSW_CHAN(R 
91 1 FUNC = #10$_R READYELK 103A, REVERSE, - 
91 1384 I10SB = IOSTAT,= 
91 1385 Pl = UETUNTS$K_RBUF(R7),- ; Read buffer 
$i 1 § P2 = #MVURITE_STZE 
0081 30 44 ! 5 BSBW ERROR_CHECK 3; Check for errors 
Ys ! 4 ; Compare data read to data written 
59 00008000 8F 00 BA 1391 MOVL MWRITE_SIZE,R9 3; Get size of buffers 
A 1C2 C7. ~—sODE: 8 4 De 35 MOVAL UETUNTSK REUF(R7), R10 ; Get read buffer 
B 210'DF DE ‘3 ! a7 10$ MOVAL @WRITE _BOF,R 3; Get write buffer 
88 BA 9 6 CB 1395 «= = CMPB-— (R10) +, (R11) 4 : Check the byte 
9 \§ Ba 1 36 BNEQ ; BR if bytes are same 
F859 F5 QO8D0 139 SOBGTR R9,10$ ; Go do next byte-until done 
OE 11 O85 : 38 BRB 30$ ; Data check complete 
Bape 1299 208: ; Data compare failed 
0002'CF 0040 &F A8& ert 1358 BISW2 #DATA_ERRM,FLAG ; Set data error fia 
018B'CF 7C O8DC 140 CLRQ IOSTAT ; Clear possible left over error code 
0070 =3=31 Bee 1eR8 BRw REPORT_ERROR ; Go report error 
Bae 1006 30$: ; Data compare ok - deaccess the file 
ORE 1288 $Q10W_S reg = UETUNTS$W_CHAN(R7),=- ; Deaccess the file 
See 1409 FUNC = #10$_DEACCESS,- 
0 ‘ 1410 10SB = IOSTAT 
0037 30 344 121) BSBW ERROR_CHECK 3; Check for errors 
0304 1418 NEXT_UNIT: ; Do the next unit - if there is more 
50 OC A7 0 904 1415 MOVL gar, CHAN(R7) ,RO ; Did we ever SASSIGN this drive? 
0D 13 0908 1016 BEQL ; BR if not - need not S$DASSGN 
90A 141 SDASSGN_S CHAN = RO ; Deassign the channel 
0024 30 0914 1213 BSBW “ERROR_CHECK ; Check for errors 
917 1419 5$: SCANTIM_ i; Forget the watchdog timer 
i? 7 co 09 1420 ADDL2 ~(R7),R7 3; Next unit block 
00000200 * &F 7 D1 O9 1421 CMPL R7 ,@UNIT_LIST ; Done all units? 
OC 12 O92A 14 ; BNEQ : Go check next unit 
9 Ve SSETSFM_S ENBFLG = #1 ; Enpeie system service failure mode 
00DC 31 9 1426 BRwW END_PASS 3; ALL done! 
9 1425 108: 
FE9E = 31 3 14 6 BRw ONE SHOT_LOOP 
> 1 8 ERROR_CHECK: ; Here we check for Q10 errors 
09 28 E 9 14 BLBS + lea : BR if 4/9 request queued Ox 
0 ‘] 14 TSTL 3 ase J" for return status of zero 
11 1 940 14 BEQL aap on ERROR 3 zero 
018B'cF 50 OD RS 1% ses MOVL IOSTAT 3 See i os code 
O18B'CF OD 947 1435 : TSTL Jgstat 3 have " . status here? 
1 948 14 § BEQL $ ; BR ifn 
01 018B'CF CE 94D 14 BLBC IOSTAT,REPORT_ERROR ; BR it a10 failed 
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05 4 1635 208: RSB ; Return to test - no errors detected 
3 1303 REPORT_ERROR: ; We got an error = output appropriate message(s) 
06 8A 09 1906 BICB2 ove CUNT SR TESTABLE.= ; Mark unit untestable 
OB A 955 «(144 UETUNTS$B_FLAGS(R 
957 1444 SCANT § ; Forget the watchdog timer 
183'CF D6 0960 1445 INCL “ERROR_COUNT ; Bump the error count 
18B°CF OD 0964 1228 PUSH IOSTA ; Push the error code... 
188: CF DD 0968 144 PUSH IOSTAT 3 «sand the error code. 
1A9 C7? OOF a8 1728 PUSH UETUNTS$Q_DEVDSC(R7) : «+and the device designation. 
F°CF OF 9 § 144 PUSHAL TEST_NAME : «+-and the test name... 
F 098 i DD 0974 1450 PUSHL #*XF 3 «+.and the arg count... 
az) 19A 8F DD O97A 1451 PUSHL #UETP pe UUs STEER ERROR i «.-and the signal name... 
183'°CF dD 0980 145 PUSHL ERROR_COUN i ‘..and the error count... 
OE1'CF DF 0984 1283 PUSHAL 43 S$ NAME ++OUPr OWN name... 
0001 BF DD 0988 1454 PUSHL 002 -..and the argument count... 
0074 8 g F Odd O9 1455 PUSHL Aue TPS ER itline = chndi’’ «and the signal name... 
00000000 ' GF BA FB 0394 145 CALL ' ; we sand print the error 
0830 8F $188 Cr 81 +4 1487 soar tostar. bese. CANEEL : ase 10 sensetee because of timeout? 
Py w 
2c orse'ey a one 1459 CRPU [ostar, -#SS$_ABORT ; Was 10 aborted because of timeout? 
a we a 1269 BNEQ ; BR if it wasn't 
4 1098 108: ; Something must have hung and watcn dog timer went off 
OIE6'CF OF O3AB 1464 PUSHAL Line _OUT_MSG ‘ «+spush the error message adr 
DD O9AF 1465 PUSHL #1 : «-spush the arg count... 
00741132 DD bee} 1096 PUSHL ‘ort TEXT! STSS$K_ERROR ; -+epush the signal name... 
0000000 ' GF 03 FB O9B7 146 CALLS G*LIBS$SIGNAL 3 ee-Peport the error... 
A 11 o3c6 1098 BRB 
039 1490 20$: ; Data compare error? Output error msg if it was 
. #DATA_ERRORV,FLAG,30$ ; BR if not data compare error 
” gp0e B1A9 6g FE a3¢0 1298 ROVAL UE TUNTSa -DEVESC (Rr?) R8 ; Get address of unit name descriptor 
9CB 1474 $FAO_S R_MSG,- 3; prepare message 
8c 1475 or OUTLEN = z BUFFER RPTR - 
9CB 147 OUTBUF = FAO_BUF,- 
9C 1499 Pl = RB ; Unit name descriptor 
OOOC'CF OF 366 147 PUSHAL BUFFER_PTR 3 «.epush error msg adr 
1 DD Q9E4 1299 PUSHL #1 3 «.+-push arg coun 
741132 8F DD O9E6 1480 PUSHL errs. TerT eres ERROR ; ...push otgnet pane 
199990000" F >. ¥e ors 1481 CALL ac BSS : ;. report he erro 
"CF $040 F OAA i 1? § 308: BICW POAT AC Tee! FLAG ; Clear flag - error nes been printed 
O18B'CF D4 O9FA 1484 CLRL  IOSTAT ; Prevent possible confusion Later 
FFOS) 31 ore 16 5 BRw NEXT_UNIT 
i 12 UNIT_TIMEOQUT: ; Go here with watchdog timer timeout 
009 A 14 . WORD 
’ UNTBLK,R6 ; Get the un nit block address 
a we 00 A 1299 SCANCEL_$” CRAN Me UE TUNTSW_CHAN(R6) : This 10 will never complete 
4 Bala 1098 


— 
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Al4 1495 
Al? 1438 END_PASS: 
Al4 1088 ; This routine is entered on completion of a pass. In normal and 
Al4 132 ; one-shot modes the image exits. in Loop mode the end of pass message is 
A141 ; output, the units are dismount, initialized, remounted and another pass is 
; started. 
Ae | ' 
53 0002'CF 3 E1 QOAI4 1 4 BBC #LOOP_MODEV,FLAG,10$ ; BR if not loop forever 
002'CF 2 AA OQAIA 1504 BICW2 #TEST_OVERM,FLAG ; Reset the termination flag 
1BE'CF D6 OAIF 1505 Auel PASS ; Bump the pass count 
A 1 $ FAO_S CTRSTR = PASS_MSG,- ; Format the end of pass msg 
Acs 1 OUTLEN = BUFFER PfR,- 
A 1508 OUTBUF = FAO_BUF,- 
A 1509 = PASS,- 
Ass nt TEE peter: 
= 
OOOC'CF DF QA40 1216 PUSHAL BUFFER_PTR ; Push the string desc. 
DD QOAS4 151 PUSHL #1 ; Push arg count 
00741133 8F DD OA46 1514 PUSHL ov ite TEXT!STSSK_INFO ; Push the signal name 
Q00000000'GF 03 FB OASC 1515 CALLS #3,G*LTBS$SIGNAL ; Print the end of pass message 
BA'CF D4 OQAS 1318 CLRL ITERATION ; Reset the iteration count 
OC2E'CF 00 FB OQAS? 151 CALLS #0,DISMOUNT_TAPE ; Let's go dismount the tape(s) 
1 OD QOASC 1518 PUSHL #1 3; Set loop mode 
OD8C'CF 1 FB QASE 1519 CALLS #1,INIT_TAPE ; Let's go init the tape(s) we modified 
0 DD OA63 1520 PUSHL #1 3; Set loop mode 
OA81'CF O01 FB OA65 1521 CALLS #1,MOUNT_TAPE ; Go mount tape(s) for another pass 
FAS8 31 —— 13 ¢ 108 BRW RESTART : Do the next pass 
0187'°CF 10000001 8F DO OA6D 1524 MOVL #SS$_NORMAL!STSS$M_INHIB_MSG,STATUS ; Set successful exit status 
pare 136? SEXIT_S STATOS ; Exit with the status 


6). 
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-SBTTL Mount Routine 


+ 
3 FUNCTIONAL DESCRIPTION: 
This routine calls the $MOUNT agi service for each tape drive. If 
the mount completes successfu 3 A. “ Label and hardware write 
fan otection are all checked. | ape asses all the tests the 
ETUNTSM_MOUNTED and UETUNTSM. TESTABL ags are set and the density 
2. saved” jn » fee nee: K_DENSITY. If the tape fails any of the above tests 
uni nted and an atete message is output. In loop mode 
f° the ibetbntBne TESTABLE flag is not set the unit is skippe 
no units are mounted successfully an error message is printed and 
bane EXIT is called. 


eae | SEQUENCE: 
PUSHL #0 or #1 
CALLS #1 /MOUNT _TAPE 
INPUT PARAMETERS: 
NONE 


; 0 for startup, 1 for loop mode 


>Prrrrrrrrrrrr>rr>r>r>r 


sm ICHT INPUTS: 
UNIT_LIST ects to the head of a doubly Linked circular List of unit 


4 
1 
1 
1 
1 
1 
1 
15 
15 
1 
13 
13 
1 
13 
15 
13 
15 
BA 1 ocks for the device(s) under test. 
OA 15 OUTPUT PARAMETERS: 
baby 18 — 
OA81 15 IMPLICIT OUTPUTS: 
QA81 15 Error message if SMOUNT fails or tape Label and hardware 
QA81 15 protection is not correct. 
OA81 15 
yt I COMPLET ioe CODES: 
A81 15 
OAs 15 SIDE EFFECTS: 
yt 1 Image will exit if no units are mounted successfully. 
OA81 «15 -- 
OA81 15 
OA8} 1567 MOUNT_TAPE: 
OFFC OAR 1 ~ WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,RI0,R11> ; Entry mask 
55 eS AC DO OA ; 1 MOVL 4(AP),RS 3; Get mode argument 
57 0200°CF st ° 0'8F 1 . 1571 ADDL3 #UNIT_LIST,UNIT_LIST,R7 ; Set the unit block List header 
1AF ‘CF 4 OA91 1 ; CLRB UNIT_CNT : Clear the number of testable units 
O1D7"CF 94 4 13 z CLRB ARG_COUNT 3 Initialize the error arg count 
ney 13 5 MOUNT_LOOP: ; Return here for each unit 
08 55 €9 QA9D 1 sf BLBC ; BR if we are just pterting up 
01 €0 OAC 1 £8 BBS BOETONTSV TEST ABLE. : BR if unit is still testable 
03 08 A7 ASE 157 Us TUNTSS FLAGS(R?), 10$ 
111 31 a : 9 108 BhW NEXT_UNT ; This unit failed last pass - skip it 
bosc+CF C b0 my 13 § : MOVL os tyaree -PEVDSC(R7),- ; Setup device name Length 
a BO OAAB 13 4 MOV UEYUNTSO -DEVDSC(R7),- ; Also set device name length in mount 
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; Case fell through, unrecognized density 


7F'CF AAF 1585 MNT_LIST : item list 
01B1 ¢7 0096 28 . ! § MOoVCS DEVDSC .UETUNTSK_DEV_NAM(R7) ,- ; Get the device name 
ABC 1 SMOUNT_S- A ; This amounts to MOUNT/NOASSIST/OV=ID 
ABC 1 ITMLST = MNT_LIST 
01 50 01 AC 1590 CMPL R #SS$_NORMAL 
20 13 OACA 1591 BEQL «6-20 ; BR if no errors 
DD OACC 1 3 PUSHL R ; Set the error code 
ACE 159 SFAO_S CTRSTR = MNT_ERR_MSG,= ; prepare message 
ACE 1594 OUTLEN = BUFFER_PTR,- 
ACE 1595 OUTBUF = FAO BUF,< 
ACE 1 36 Pp = #DEVDSC ; Unit name descriptor 
01 Bo AE? 159 PUSHL #1 3; .+-push partial arg count 
OOEC 1 nH! H 38 BRw MNT_ERROR ; Go tell everyone 
wee 1601 20$: ; Unit mounted ok - let's find out what we got 
AEC 16 § S$GETDEV_S- ; Get info on this device 
AEC 160 DEVNAM = DEVDSC,- 
201 Ione PRIBUF = DIB 
08 1 1986 ; Here we verify the tape label 
56 O12F'CF 9A 5} 1808 eovre DIBBUF+DIBSW_VOLNAMOFF,R6 ; Get volume name offset 
0110'C6 OO05S'CF eae * ? 109) aa ABEL LABEL +8, DIBBUF +1 (RO) i F7°ts, ter correct wee 
3 abel is correc 
56 O0000010F'8F CO 0B! 1611 ADDL2 #DIBBUF,R6 3; Get address of Label descriptor 
0B1 1916 $FAO_S CTRSTR = LABEL_ERR_MSG,- ; prepare message 
0B19 161 OUTLEN = BUFFER PTR,- 
0B19 1614 OUTBUF = FAO BUF,- 
0B19 1615 ey = #DEVDSC,- 3 Unit name descriptor 
0B19 1616 Ps = R6,- 3; Tape labe 
0B19 1617 P = #LABEL :; Expected Label 
00 DD OB3A 1618 PUSHL #0 3 «.+-push partial arg count 
o0sc = =ss« 51 ‘ 193) BRW DISMNT 3 We can't test this one - dismount it 
+3 : Hb 1 30$: 3; Here we check to see if the unit is hardware write-locked 
1E 0117°CF } ie} Seber 16 4 BBC #MTSV_HWL ,DIBBUF+DIBSL_DEVDEPEND,50$ ; BR if not write-locked 
B45 1624 SFAO_S CTRSTR = HWL_ERR_MSG,-"; prepare message 
a 1625 OUTLEN = BUFFER_PTR,- 
B45 16 § OUTBUF = FAO BUF,- 
B45 16 1 = #DEYVDSC 3; Unit name descriptor 
00 Bo BSE 16 8 PUSHL # 3 ..-push partial arg count 
006 1 +4 19 4 BR Ww DISMNT 3 We can't test this one - dismount it 
a6 16 1 50$: ; Tape passed tests - let's get the density 
. © B63 16 5 EXTZV #MTSV_DENSITY,#MTS$S DENS ITV. ; Get density field 
58 117°C B66 16 4 DIBBUF+DIB$L_SEVDEPEND,R 
0 3 8 8F B6A 1635 CASEB R8,#5,# ; BR cording to densit 
Ate +3 16 § 60$: . WORD 9 $-60$ 3 6 bpi - TSK NAZI 
BS * O€ 16 WORD $-60$ 3 bpi - MISK_PE 16 
& 44 16 8 «WORD 62508-4508 3; 6 bpi - MT$K~GCR_6250 
B74 1 
eas 


NN 
ae 
ae 
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OC'CF C2°CF B74 164 OVL DENSITY_ERR,BUFFER_PTR =; Move error msg to buffer 
0014'CF iat o8ed" 28 aH 1848 cot hy DENSITYTERR, DENSITY. ERB, BUFFER ° : 
oon) Bt ; ; 184s 0800s RW DISMNT 
59 OOO003ED'SF 00 an 1803 " MOVL #NRZ1,R9 ; Get address of density 800 
OBA hone Mee oe 
59 Q00003F2°8F DO O0B93 1650 "MOVE #PE,RO ; Get address of density 1600 
OT BBBe IE aasos, Ore 
59  QO00003F7'8F 00 + 1688 * MOVL #GCR,RI ; Get address of density 6250 
n 192? 70$: 3; If we made it here we have what looks Like a testable unit 
69 05 28 OBA 1689 MOVC3 #DENS LEN (R9),= ; Save density 
O1A4 C7? OBA 1658 UETUNTSK DENSITY(R7) 
0¢ 88 AJ 1659 BISB2 #UETUNTSA TESTABLE. ; Mark unit testable 
OB A QBAB 1660 UETUNT$B_FLAGS(R7) 
08 88 OBAD 1661 BISB2 M#UETUNTSA_MOUNTED,- ; Set mounted flag 
0B A7 OBAF 1668 UE TUNTSB_FLAGS (R75 
OIAF'CF 96 nent 1997 INCB UNIT_CNT ; Bump the unit count 
ert 199? NEXT_UNT: ; Do next unit - if there is more 
7 67 #=+.\;¢O QBBS 1667 ADDL2 (R7),R7 ; Get next unit block 
00000200' 8F ge | hee? 1968 cnr Wf AUNIT LIST 3 End ot Listt 
Py n 
FEDS 31 49 1870 10$ BRW MOUNT_LOOP 
O1AF CF DS OBC4 1076 ; TSTL UNIT_CNT 3; Any units to test? 
4F 13 OBC8 167 BEQL MOUNT_EXIT ; BR if no units mounted 
a: eae 
fare 1926 DISMNT: ; here we dismount the untestable units 
OBCB 1678 $DISMOU_S- : Bi smount and let it unload 
pace +24 DEVNAM = UETUNTS$Q_DEVDSC(R7) 
opp 1681 MNT_ERROR: ; If we got here we have a unit in trouble - tell everyone and go on 
ie 1 § 3 to next unit 
O1D7"CF O7 8E (C1 D8 1684 ADDL3 = (SP)+,#7,ARG_COUNT ; Get total # args, pop partial count 
183 te D6 D 1 5 CL ERROR COUNT 3 Keep running error count 
09 C°CF OF # 1 § PUSHAL BUFF ; Get error msg 
0008 001 HH OD —6 1 PUSHL #*XF 1 3 «+-argument count... 
00 ants F DD E 16 8 PUSHL #UETPS_TEXT!STSSK_ERROR ; . $igna} name.. 
1B3'CF DD Fs 1 PUSHL ERROR COUNT : Finish off arg List... 
‘CF OF Fé 1 PUSHAL peut 3 NAME 3 «..OUr OWN Name... 
6001 6 i 0D FA 169 PUSHL #*X : zr 
4 F DD 0C0O 1 3¢ PUSHL  #UETPS ERBOXPROC!STSSK_ERROR ; ...for error box message 
00000000'°GF 01D CF FB 0C06 169 CALLS ARG_COONT,G*LIBSSIGNAL” ; Truly bitch 
3 BA OCOF 1694 BICB SUE TUNTSA TESTABLE = ; Mark unit untestable - we could be in 
08 A C 1695 UE TUNTSB_FLAGS(R7) - boop mode 
01D : 94 at 1636 CLRB N : initialize the error arg count 
8 3H 4 + 244 BRB NEXT_UNT 
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13 ! 99 MOUNT_EXIT: ; If no testable units it's time to bail out 
O16S°CF DF OCI9 17 ? PUSHAL NOUNIT_TESTABLE ; Get error msg 
DD OCID 17 § PUSHL #1 ; «+-argument count... 
00741132 8F DD OCIF 17 PUSHL Sue PS TERT ISTO SOM 3 ij «eSignal name... 
DD OC ; 1704 PUSHL # ; «..and parameter count 
0187'CF 4 QC 1705 CLRL STATUS : We already said enous 
064A 1 : 1f § BRw ERROR_EXIT ; «+-and give up, complaining 
C2E 1708 
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-SBTTL Dismount Routine 
FUNCTIONAL DESCRIPTION: 
This routine checks the UETUNTSM Poi thy flag for each tape drive and 
if i} is set the SDISMOUNT system service is called with the nounload 
+ toes a When the dismount is complete the UETUNTSM MOUNTED flag is 


CALLING SEQUENCE: 
CALLS  #0,DISMOUNT_TAPE 


INPUT PARAMETERS: 
NONE 


rmPL CHT INPUTS: 
UNIT_LIST points to the head of a doubly Linked circular List of unit 
locks for the device under test. 

QUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 


SIDE EFFECTS: 
NONE 


LJ Se Ge Se Ge Ge te Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Se Ge Ge Ge Ge Ge Ge Se Se Ge Se Se 
a 


SPEER EE PAI inpopononononononnn) 2] ee es =. 


POAOAOAOOAOOODAIOOAAOAAOAAAOAOAAAOAAAAOAOAHOHAOAAAOHAAOAOHOOOOAOOOHOOOO 

ee ee a a ad a ed ed dd 8 dd ed 8 dd dd ds 2 2 a a 

yoo eae ea aaaaaeee ewww 

PAE O ODNOAUNEWIN OOD NAME WIN = OOD NAME WIN $$ O ODNAUE WN OODNAOULS WO 
w 


VGOOOCOS FOOOOW—Mn b $F PF VW P OOM MMMMMMMMMMMMMMMMMMMmMmMmMmmmmmmmmmmrremernrn 


0 
0 
0 | 
0 
0 ISMOUNT_TAPE: 
OFFC “WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> = Entry mask 
57 O0200°CF 00000200'8F C1 ADDL3 #UNIT LIST, UNIT _LIST,R7 : Set the unit block list header | 
SSETAST_S ENOFLG ; Enable AST deliver 
O197 "CF D4 0C4 CLRL TA Obe ; Assume it was disabled 
09 D1 4 CMPL R Wses WASSET : Were AST's enabled? 
0 if 4 BNEG 1 Of : BR if not enabled | 
0197'CF . 2 4 2 : Set it to be reenabled | 
5 10$: SSETSEM. § <ENBEC. : EA : Bleoble B8 fetlare eee | 
19B°CF D4 : 5 CLRL Alt. MODE ; Assume it was disabled 
9 2 01 CRPL sf ad WASSET ; Was SS failure mode enabled? 
\s 6 BNEQ hee ; BR if not enabled 
019B8'CF 3 ° MOVL ] ae FAIL MODE ; Set it to be reenabled 
6 DISMNT_LOOP: ; Return here for each unit 
+3 E0 8 BBS #UETUNTSV pOUNTED - ; BR if tape is mounted 
03 08 A 6 UETUNT$B_FLAGS(R75 ,5$ 
OAA 31 BRW NEXT1 3; Skip to next unit 
7 3 $DI1SMOU_S- Bi smount/nounload 
7 “DEVNAR = UETUNTSa Devoscir7).- 
7 Bhs DMT$M_NOUNLOAD 
01 50 01 7 CMPL R #858. NORAAL ; Dismount ok? 
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3 C 1767 BEQL 19s ; BR if no errors 
018B'CF C 17 § MOVL RO, IOSTAT :; Set error code 
A OC 126 BICB2 #UETUNTSM TESTABLE. ~ : Mark unit untestable 
4 A C89 «#17 9 UETUNT$B_FLAGS(R7) 
183'CF D6 OC8B 177 INCL ERROR_COONT ; Bump the error count 
18B'CF DD OC8F ere PUSHL IOSTAT ; Push the error code.. 
58 1A9 C7?.—s ODEC«#O 177 MOVAL. UETUNTSQ_DEVDSC(R7),R8 ; Get address of unit name descriptor 
C98 1774 SFAO_S CTRSTR = DISMNT_ERR_MSG,=- ; prepare message 
C9 1775 OUTLEN = BUFFER _PTR,-=- 
C9 1776 OUTBUF = FAO_BUF,- 
C98 177 P = R8 3; Unit name descriptor 
4 C'CF DF CAD 1708 PUSHAL ata 3: PTR 3 «+epush error msq adr 
QOOFO001 8F OD OCB1 177 USHL #*XF 901 3 «+epush arg coun 
007411 ¢ F DD OCB? 1780 PUSHL #UETPS_TEXT!STSSK_ERROR ; ...push signal name 
4 ‘CF DOD OCBD 1781 USHL ERROR _COUNT .+.and the error count... 
OFF DF OCC1 17 ¢ PUSHAL PROCESS UANE +..0Ur OWN Name... 
000 ee § 8F DD OCCS 178 USH #*x10002 »..and the argument count... 
00748022 8F bd ccB ree PUSHL eit? LY ste alanaane chndi -..and the signal name... 
00000000 ' GF 98 re 0} 1083 CALLS #0 .GOLTBSSIGNAL 3 seeand print the error 
CDA 1787 
OCA 1788 10$: ; Here we set a watch dog timer and wait for dismount to complete 
Been 1239 SSETIMR_S Me: = TUREEAIN., DELTA,- ; Set a three minute watch dog timer. 
OCDA 1798 STADR = DT §MOUNT _TIMEOUT Where we go if something hangs 
0098'CF 57 D0 OcED 1793 a MOVL a7, CUR_UNTBLK 3 Seve the unit block address 
ta 1795 S$GETDEV_S- : Get info on this device 
Ree 1738 yeas = ie heroe. DEVDSC(R ),- 
ES OOF CF 13. ~«€0 $50 1798 BBS #DEVSV_ MNT, DIBBUF +DIBSL_DEVCHAR,20$ ; BR if still mounted 
900 1799 SCANTIM_S : Cancel watch dog timer 
08 8A O0D16 1300 BICB2 “#UETUNTSM_MOUNTED,- ; tlesr mounted flag 
0B A7 0018 1 o1 UE TUNTS$B_FLAGS (R75 
ODIA 18 ; 
gota 1 o? NEXT1: ; Do next unit - if there is more 
57 67 CO QDIA 1 be ADDL2 (R7),R?7 ; Get next unit block 
00000200°8F 57 D1 ODID 1 36 CMPL R7 PONtT LIST : End of List 
03 13 0024 180 BEQL =-:« 108 ; BR if en 
FFSF 31 OD $ 1 3 BRW DISMNT_LOO ; Go do next unit 
D 1 10$ SSETSFM_S ENBFCG = oP ss FAIL MODE ; Set to previous state 
D341 19 SSETAST_S ENBFLG = AST_MODE ; Set to previous state 
04 or ! : RET ; ALL done 
4 i 18 DISMOUNT_TIMEOUT: ; We get here if dismount doesn't finish within three minutes 
000 D4 1815 -WORD 0 
56 sey D D42 1 1 MOVL CUR_UNTBLK,R6 ; Get the untt block address 
018B'CF 0000 $5 OF be x} } nov #358 TIREOUT, IOSTAT ; Set exit code 
1A9 C6 D54 «181 MOVAL UETUNTSQ_DEVDSC(R6),.R8 ; Get address of unit name descriptor 
D 1 SFAO_S CTRSTR = DISMNT_ERR_MSG,- ; prepare message 
D 1 OUTLEN = BUFFER-PTR>- 
D 1 ¢ OUTBUF = FAO_BUF,- 
p59 «1 Pp = RB ; Unit name descriptor 
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Dismount Routine 4 
DGE 1 : $CAN : Cancel all exit handlers 
88 . ee, 1 auenae “Bure R_PTR : .+epush error msg adr 
B00F 0 F OD BoB 1 § PUSHL # j «.epush arg coun 
0741152 8F DD QOD81 1 PUSHL #UETPS_TEXT!STSSK_ERROR ; ...push signal name 
3 D 4 ry PUSHL 
O04EC DB9 1 BRu ERROR_EXIT 
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. ~SBTTL Initialize Routine 


ri 
FUNCTIONAL DESCRIPTION: 
This routine initializes each tape drive in which ghe UETUNTSM_MODIF IED 
flag is set. A DCL command file is created containing an INITIALIZE 
command and is then executed as a subprocess. This is repeated for each 
unit. In loop mode the Ls pms are initialized on subsegent passes 
to different densities selected by rotating though a list of supported 
densities. When testing is complete the tapes are initialized to their 
orginally density. 


: CALLING SEQUENCE : 
: PUSHL #0 or #1 
CALLS #1, INIT_TAPE 


9 
§ INPUT PARAMETERS: 
8 
9 
0 
5 
8 


4; 
: Argument on stack for Loop mode or other. 


5 


1 


Z : 1 for loop mode - 0 for all others 


; IMPLICIT INPUTS: 
UNIT_LIST points to the head of a doubly Linked circular List of unit 
locks for the device under test. 


OUTPUT PARAMETERS: 
NONE 


. 


$i 
8 
0 
5 
1 


; IMPLICIT OUTPUTS: 
; Command file MAGTAPE.COM is created temporarily. A subprocess is 
temporarily created. 


4 
9 
0 ; COMPLETION CODES: 

13 NONE 

‘ ; SIDE EFFECTS: 

4 ; If this routine aborts before it completes MAGTAPE.COM may be left 
i : on the disk. 

8 

4 


é 
INIT_TAPE: | 

| 

OFFC » WORD “M<R2,R3,R4,R5,R6,R7,RB,R9,R1I0,RI1> ; Entry mask 
dO MOVL 4 (AP ; Get mode argument 


55. 04 AC 
57 O200'CF 00000200'8F C1 
hae D4 

9 50 


5 2 
0197°CF Of 0 


ara 


0198'CF Of 


: Set the unit block list header 
: Assume it was disabled 


~-~ 5-44-4444 4-4-4454 _4_4 444A _A_A_A_A_A_A_A_A_A_A_A_A_A_A_A_A_A_A_A_A_ Ahhh hh 
® 000900 09.09 69 09 0D 0D Od 09 09 OD OD CD 09 CD CD CD Cu GD CD CD CD CD CD OD Gd CD C0 09 09.09 09 09 09 00 0D 0D 0000 000000 
POOPIE PIO APIAPIAAIOAIOAIAAIOAIOAIAOIAAOAIAAIOAIAIOAIAIAAAIAAIAOOOOOOAOOOOo nC 


»,R5 
ADDL3 _ #UNIT_LIST,UNIT_LIST,R7 ; 
SSE TAST.5 phere = #1 ; Enable AST deliver 
ok RO, #SS$_WASSET 


N 
MOVL #1,AST_MODE 
SSETSFM_S ENBFLG = #0 ; Disable SS failure mode 
CLRL $s ; Assume it was disabled 


75 

7 

7 ; Were AST's enabled? 

i FAIL MOD : 

: CMPL RO,#SS$_WASSET ; Was SS failure mode enabled? 
5 : 


DAC ; BR if not enabled 


: 


; Set it to be reenabled 


NIT LOOP ; BR if not enable 
MOVL #1,SS_FAIL_MODE ; Set it to be reenabled 


oOooooooocooo 

oVCoVCCoUCTCTCTCTTCTVT CTO 

OOOOoOOoDww>>r>> 
WUT Oo 


INIT_LOOP: ; Return here for each unit 


iu hs 
v04-00 


o1c 
5A =01C1 C7 


O3ED'CA 05 
0232°C6 


' 
0232°C6 1 
56 1 
022C" 
0626'CF 


Ag 
B1 
AS 
2 


5 
0 
0 
0 
C 
0 
5 
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QOOQANNNM 


F 
23 
6 


0158 


014A 


3D 0002"CF 08 


012E 


“=< 
o> 
=. >< 
re™~ 
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OOOO OCOOOCOOCOCOCOOCOOCCOOCOCVDOCOOOCOCO COCO OCOCOOCO COCO OCOCCOOOOOCOOOOOSOOCOOoO a zs 


EO 


30 


30 


EO 


30 
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a ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 2 
DWOOOOOOOOOOVO COOOOOOOOOOOOVOVOO OOOO DODODOOOOOOOOOWO OM MOcoOCD COCO CD OD CD CD CD 
BEE AAAI AAAI AI DININIPINININPINIDY 2 4 4 SS SS QOD OOOCOOCOCOC COOOOVOOOOOWwo 
FWP (CO OONOU EWN 0 OD NAW EWN 0 OO NA UIE WWI 0 OO NAW EWN O OONAUE WN -OWO°e 


B 1 
+4 wi TEST FOR TAPE 16-SEP=1 


ADDL #DENS _LEN,R6 


MOVC UETUNT$Q _BEVDSC( 
ETUNTSK_ N 


U 
ADDW UETUNT$Q~ DEVBSC 
MOVC #LABEL_LEN,LABE 
CMD BUF (RG 
ADDL3 oLAREL N,.R6,- 


INIT. RRBSRABSU, RSZ 


; Write command string to file 


$PUT RAB = INIT_RAB 
BSBW = ERR_CHK 


3 Close command file 


$CLOSE FAB = CMD_FAB 
BSBW = CEERR_CHK 


3; Create a termination mailbox 


BBS #MBX _CREATEDV. FLAG, 50$ 


SCREMBX 
“CH HAN = MBX_CHAN 
BSBW ERR_CHK 


UETUNTSK_ DENSITY(R7), -; 


33:38 AX/VMS Macro V04-00 
UETP.S arc} IUETTAPEOO. MAR: 1 


Init tape only if we wrote on it 
Skip to next unit 
Create the command file 


Go check for errors 
Connect the selected RAB 


Go check for errors 

Get init command Length 
Loop ere 
BR_if loop mode 

“Bet original density 


Get the index 
Terminator? 
R if it isn't 


; BR 
; Point to start of List 


DENS_LIST(R10),=- ; Fill in density in command string 


984 
“-SEP-1984 
BBS #UETUNTSV_MODIF 5D. - 
a NT$B_ FLAGS(R7),10$ 
BRw 
10$: 
SCREATE=- 
FAB = CMD_FAB 
BSBW ERR_ CHK 
$SCONNECT= 
RAB = INIT_RAB 
BSBW E 
MOVL #INIT_LEN, R6 
TSTL R 
BNEQ 208 
MOVC3 #DENS_LEN 
CMD _BOF(R Re) 
BRB 
208: ; Get new density for next pass if oop mode 
ADDB2 #DENS_LEN,UETUNTSB en tey + 
MOVZBL UETUNTSB_DENSPTR(R7) R10 ; 
TSTL ENS WLIST(RI1 10) 
BNEQ $~ 
CLRB guia sree cea 
CLRL 10 
30$: 
MOVC3 — LEN 
CMD _BOF (R6) 
40S: : finish command string 


te length 
in device name 


e aes 
in the Label 
Update Length and put it in RAB 


; Go check for errors 


; Go check for errors 


BR if mbx already exists 


: Go check for errors 
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ngve index pointer to next density. 
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VAX/VMS UETP DEVICE TEST FOR TAPE 


Initialize 


30 


30 


30 
CA 
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DT BB BB EAI TH HMMMMMMNOOWDOWDWWWOWWOOOOOOMWO~NA~ 
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Routi 


— 
ae 
w 


POR a a a ss 9 4 3 3 > > 2 a ss ts ts a ts a a it a 


ne 


SGETCHN_S- ; Get its unit number 
CHAN = MBX_CHAN,=- 
PRIBUF = DIB 
BSBW ERR_CHK ; Go check for errors 
MOVW  DIBBUF+DIB$W_UNIT,MBX_UNIT ; Save mbx unit number 
B1Sw2 #MBX_CREATEDM, FLAG ; set mbx created flag 


; Now get the base priority of the parent process 


50$: 


SGETJPI_S ITMLST ° eee 


SWAITFR_S EFN = #1 ; wait till this is done 


; Run command file as a subprocess 


SCREPRC_S- 
IMAG LOGINOUT,=- 

CMD _FILE,=- 

OUT,=- 

BASPRI ,- 

MBX_UNIT 

RR_CHK ; Go check for errors 


oO 
eG 
— 
v 
c-m 
=_g 
nnnne 
oo 
= 
o 


BSBw 


; It shouldn't take more than 30 seconds to complete 


ERASE: 


NEXT: 


— 
oO 
wr 


208: 


SSETIMR_S DAYTIM = DEI RVTSES Pee he? ; Set a thirty second watch dog timer. 


EFN Pad 
ASTADR = INIT TIMEOUT 
BSBW ERR_CHK ; Go check for errors : 
$Q10W_S- ; Wait for process to finish 
CHAN = MBX_CHAN,= 
EFN = #1,- 
FUNC = #10$_READVBLK,- 
I10SB = IOSTAT,- 
Pi = MBX _BUF,- 
P2 = #MBX_SIZE 
BS QIO_ERR ; Subprocess complete ok?; 


Bu ERRO : 
BICL2 #UETUNTSM_MODIFIED,- ; Clear modified flag 


UETUNTS$B_FLAGS(R7) 
; Delete the temporary command file 
SERASE FAB = CMD_FAB 
; Do next unit - if there is more 


ADDL2 (R7),R7 ; Get next unit block 
CMPL R7 ,#UNIT_LIST ; End of List? 
BEQL 108 : BR if end 


BRW INIT_LOOP 
TSTL RROR_COUNT ; Any errors? 
; BR if none 
MOVL #STSSK_ERROR!STSSM_INHIB_MSG,STATUS ; Set exit code 


FAIL_MODE ; Set to previous state 
ST_MODE ; Set to previous state 


SSETSFM_S ENBFLG = SS 
SSETAST-S ENBFLG = A 


"SSEP=1986 4:20:28 uerPesaciuerraPcoocman:1 29° (49 
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F6A ] RET ; ALL done 
OF 88 
ce Be QIO_ERROR: ; Here we check for Q10 errors 
F6B 06 BLBS RO,10$ ; BR if {79 request queued ok 
Fg 0 TSTL RO ; Test RO for a return status of zero 
F 08 BEQL 20$ 
a4 09 10$: 
F7 010 CMPW (hall eae sata ; 1/0 successful? 
ore HF 208 BEQL 0$ ; BR if error 
Be en oat iartayt® ee 
; Go print error 
OF8O 3015 30S: " . 
OF80 2016 SCANTIM_S ; If we got here we don't need timer 
OF89 2017 3 «e.eany Longer 
OF89 2018 CMPL MBX BUF+ACCSL_FINALSTS,= ; Check subprocess exit status 
OF8D 2019 #SS$_NORMAL 
OF8E 2020 BNEQ ; BR if error 
84 8 1 ans RSB ; Return to test - no errors detected 
OF91 20 § MOVL MBX _BUF+ACCSL_FINALSTS,=- ; Set error code 
OF95 2024 TAT 
OF98 852 BICL2 #STSSM_INHIB_MSG,IOSTAT ; Clear inhibit msg bit 
OFAI 0 : BRB OUTPUT"ERR 
OFAS e : ERR_CHK: ; We come here to check for system service and RMS errors 
OFAS 20350 CMPL RO, #SS$_NORMAL ; System service normal return? 
OFA6 2031 BEQL «=s«108 
OF A8 O36 CMPL RO, #RMS$_NORMAL ; RMS normal return? 
OFAF 203 BEQL «=s«10 
OFB1 2034 MOVL RO, 1OSTAT ; Set error code 
OFB6 2035 BRB OUTPUT_ERR 
OFB8 2036 10$: RSB 
OFB9 2037 
ore. B36 OUTPUT_ERR: : Sigh, something went wrong - better tell everyone 
OFB9 2040 BICB2 #UETUNTSM_TESTABLE,- ; Mark unit untestable 
gees 041 UVETUNT$B_FLAGS(R?) 
FBD Oeg INCL ERROR_COONT ; Bump the error count 
OFC 204 PUSHL IOSTAT ; Push the error code... ; 
FCS 44 MOVAL UETUNTSQ_DEVDSC(R7),R8 ; Get address of unit name descriptor 
FCA 45 $FAO_S RSTR ="INIT_ERR_MSG,- : prepare message 
FCA +8 UTLEN = BUFFER_PTR,=- 
FCA 204 OUTBUF = FAO_BUF ,- 
OFCA 48 Pi = R8 ; Unit name descriptor 
BFF 49 PUSHAL ayeree PTR 3 «+-push error msg adr 
FES 50 PUSHL #*xF0001 > «.-push arg coun 
FE9 bes PUSHL #UETPS_TEXT!STSSK_ERROR ; ...push signal name 
FEF 2§ PUSHL ERROR_COUNT 3 «sand the error count... 
At: 05 PUSHAL proces NAME 3 «OUP OWN name... 
FF Tt: PUSHL #*X1 >; ...and the argument count... 
FFD 55 PUSHL aye TPS ERBOXPROC!STSS$K_ERROR ; ...and the signal name... 
° B26 CALLS #8,G*LTBSSIGNAL 3 ...and print the error 
OA 097 BRW ERASE 


] 
| 
| 
| 
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UETTAPEOO VAX/VMS yi O) 33:38 AX/VMS Macro V04-00 
v04-000 Initialize Routine “SEP-1984 04:26: UETP.SRCJUETTAPEOO.MAR; 1 
! oD 23 INIT_TIMEOUT: ; We get here if subprocess doesn't complete in 30 seconds 
OFFC | bP e! «WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ; Entry mask 
100F 4 SCANCEL_S CHAN = MBX_CHAN ; This 10 will never complete 
“iL a = 
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— -SBTTL Timer Expiration Routine 
; FUNCTIONAL DESCRIPTION: 

This routine will be called from a S$SETIMR timeout. 
This could be the normal timer to end the pass, or the 
timer set to check for hung devices. 


CALLING SEQUENCE: 
Called via AST at SSETIMR expiration. 


INPUT PARAMETERS: 
REGIDT value in AST parameter. 


IMPLICIT INPUTS: 
NONE 


a=] 


OUTPUT PARAMETERS: 
Done flag set for pass termination. 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
Timeout status if device hung error. 


SIDE EFFECTS: 
Sets a flag to indicate timer expiration. 
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TIME_OUT: 
OFFC - WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,RIO,R11> =; Entry mask 
04 AC O11 DI CMPL #REQIDT1,4( AP) ; Is this the pass timer? 
EE BEQL 208 ; BR if yes 
: Some thing must have hung - let's try to cancel it 
DD PUSHL ; Run down of image and indirect 1/0 


#0 
PUSHAL RMSRUNDWN_BUF ; Buffer to receive device & file 
; mame of improperly closed files 
CALLS #2,G*SYSSRMSRUNDWN 
DECB START_CNT 


00 
O1DB'CF DF 
Q0000000'GF 02 F 
vital 


POIPIPIPIPIPIPINIPINIPININIPINIPINIPINININIPIPINIPIPININYININYINDIMUNINPINININININYPYPYNIPY 


9 No more testing for this unit 
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a a ee ee ee ee eee ee ee eee 
SB BBB LBD BE ANUIINPPINOPININIDS 4 2 9 SS 
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5 

6 

7? 

5 
14 0 BGTR ; BR if there are still units running 

1 SWAKE_S ; Wake main routine 
04 $ RET 

: 10$: ; Set timer again in case something else hangs 

§ SSETIMR_S- 

DAYTIM = THIRTYSEC_DELTA,- 

8 EFN = #2,- 

9 ASTADR = TIME_OUT,- : 

0 REQIDT = #REQTDT2 ; Hung device ID 
04 1 RET 

g 20$: ; Set test over flag and start a watch dog timer 
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Timer Expiration Routine SEP=1984 04: ETP.SRCJUETTAPEOO.MAR; 1 (20) 

1056 2124 
O0O2'CF O02 AB 1056 2125 BISW2 #TEST_OVERM,FLAG : Ready to stop gracefully 

105B 2126 SSETIMR_S- Set timer after first rewind is 
105B 2127 “DAYTIM = TOIATYSEC _DELTA, -; completed to check for device hung 
105B 2128 EFN = 
1328 129 ASTADR = Tine OUT,=- 
105B 21350 REQIDT = #REQIDT2- ; Hung device ID 
106D 2131 SWAKE_S ; Wake startup routine 

04 1078 21 ¢ RET 
1079 21 
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} 4 ] 5 os -SBTTL System Service Exception Handler 
1079 21 5 ; FUNCTIONAL DESCRIPTION: 
1079 2138; his routine is executed if a software or hardware exception occurs or 
1078 172 ; if a LIBSSIGNAL system service is used to output a message. 
1079 2141 ; CALLING SEQUENCE: 
Ta 196 : Entered via an exception from the system 
1999 144 ; INPUT PARAMETERS: 
1922 132 3 ERROR_COUNT = previous cumulative error count 
1879 129 : AP =---> 2 
1079 2148 ; ee i 
1928 4 3 : SIGNL ARY PNT | 
1372 131 3 MECH ARY PNT ! 
1079 188 : ! 4 ' * 
1079 154 : | mmmmwooeooonnne ' ! 
ta 132 ; ESTABLISH FP ! 
: ! echanism Array 
i ta +4 DEPTH ' Mechani A 
1079 $136 ; ! RO ' : 
1079 2160 ; | enwwnnenn o----- ' ! 
1079 2161; ' R1 ' v 
1079 1¢ : | mmm meeoenoweoene | seeeeseece 
1079 2163; ' N ! « 
1079 164 : ' eeeceeeeseeeeson ' ! 
ta 192 : CONDITION NAME : 
1079 2167 ; ! N-3 ADDITIONAL! Signal Array 
ta 2169 ; LONG WORD ARGS: 
1079 2170; ' PC ! ! 
1079 2171; | mmm monnnennnnee ! ! 
1079 \e : \ PSL ! v 
1079 2173; | em weereneennnn= | eeeeeenn- 
1079 174 : IMPLICIT INPUTS: 
1079 2175; NONE 
1079 2176; 
1079 177 ; OUTPUT PARAMETERS: 
14 178 : NONE 
1079 2179 ; 
1928 180 ; IMPLICIT OUTPUTS: 
1079 2181; NONE 
1079 21 § ; 
1079 1 3; COMPLETION CODES: : 
1079 2184 ; SS$_NORMAL if it's a UETP condition or RMS error. 
: a ! $3 Error status from exception, otherwise. 
1999 1 4 ; SIDE EFFECTS: 
1079 2188 ; May branch to ERROR_EXIT. 
1079 2189 ; May print a message. 
1079 2190 ;:-- 
1079 2191 
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AX/VMS UETP DEVICE TEST FOR TAPE 16-SEP-1984 01:33: AX/VMS Macro V04-00 : Page $8 
v AS ee Sones Service Eacsecten Handler eet 1 § i38:38 UETP.SRC SESTAPEOR. MAR; 1 4 
RROR: 
OFFC 19 138 mst .WORD *M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> ; Entry mask 3 
F #0 ; Disable AST delivery 
01 oD i ge 194 a Ma Fag eat ; Assume ASTs were enabled 4 
50 09 D1 1086 193 ceor (pene sate 0 : i ts thee nea gy 
4 i? 1088 198 ‘a, CLRL (SP) Set ASTs to remain disabled te 
s : Disable SS failure mode 
01 OD 1096 0 it ier 7 es fe ; Seane SS failure mode was enabled i 
50 O09 01 1038 08 CMPL 50 OES MAGEE AS ; net 2° return’ mode enabled? TE 
4 ba 1990 05 ‘es: Prat (SP) : Set SS failure mode to remain off Tk 
; RGLST(AP),R6 ; Get the signal array pointer 
RAE BR IRE SE a tars tremansriary as 7 fet tee Plemas ecrenatetater if 
10 ED 10A7 209 CMPZV ostsey. PAC > ; Is this a message from LIBSSIGNAL? vy 
0c 10A9 10 Tl 
eee HH 12 1080 13 BNEQ Rag MUETPS. Facility ; BR if this is not a UETP exception Me 
ee I iL Bites aSBR PAUP sash cc STI Be ce i 
21. 211 ioee 315 He " “bos ; Restore ASTs and SS fail mode . 
10c6 ; we : sSvc failures UE 
a ie ee mow Sin tf tale cert be os ee tote UE 
10 ED 10CF 19 CMPZV #STS$V_FAC_NO,~ : Is it an RMS failure? Ue 
01 of 102 st R10,AR PRASS “FACILITY UE 
pie lobe $29 tae 2°¥-.0000000 : Strip comred bits from status code UE 
- s+ ta Bt $9 lope $37 BATeAC @ dy SIGUA Ake (R6) . - : Is it an RMS failure for which... 4 
4 10E1 5 # . 
‘ NO_RMS_AST _TABLE ; «mo AST can be delivered? 
et th 13 19e5 i 408: BEQL 508 ; BR if so - must give error here 7 
01 BA Had g 9 ; POPR #*M<RO> ; Restore SS failure mode... . 
10E9 $3 4 ade # ENBFLG = RO ee UE 
01 BA ‘10F2 $3 5 ey 4 gn Pe - ; Restore AST enable... ve 
10F4 ; UE 
a : tandard status for exi 
” - Be 1400 238 RET i Poa =NORMAL , as : Supply precess ine or goto RMS * ERROR) a 
1101 35 50$: ve 
. : h tatu 
pistes 3 p? H ; $ CERE  eecoiiags : oe for now. id o net SS es. a 
i : ervice 
wy SORES 0) 10 33 BNEG te peptone : Fe : ae anectal 400s message UE 
” 1111 40 $SGETMSG 5, MSGID = ; Get SS failure code associated text a 
1111 2241 MSGLEN = BUFFER PTR,- UE 
1111 4 BUFADR = BUF, - UE 
Hii} 3348 FASS Hcy ue 
. i = : FA nt for SS failure cote UE 
ines 6 33 Hi ig Bear rit Sean ; bon . use ScETHSe if no $FAO args. | 
. PUSHAL BUFFER_PTR 3: ...else bui uf. 
spe 61 DD i 5 i PUSHL iH 3 o+e@ message describing... UN 
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“SE 4:26: UETP.SRCJUETTAPEOO.MAR; 1 
ey a S1gxt 3 «.ewhy the System Service failed 
R1 SEVERITY,- ; Give the message.. 
co Tees SEVERT TT Laps ; «the correct severity code 
¢ gre ; Count the number of args we pushed 
R10 3 Save SS failure code 
#1,R8 ; Count the number of args we pushed 


#4,CHFSL_SIG_ARGS(R6) ,R7 ; seavers longwords to bytes 

3 ve the current signal array... 
R7, CHFSL_SIG_NAME(P6),(SP) ; ae * the stack 
a SIG_ARGS(R6), -=(SP)'; Push the current arg count 


e243 
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-SBTTL RMS Error Handler 


++ 
FUNCTIONAL DESCRIPTION: 
This routine handles error returns from RMS calls. If an error occurs 


0 Page 50 
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before costing is started the error codes are pushed on the stack 
and control is transfered to ERROR_EXIT. If an error occurs during 
unit startup an error message is output and control is returned 
to the startup routine. If geting is in progress when an error occurs 
an error message is erinted for the failing unit and the unit is marked 
untestable. If additional units are still running we exit, otherwise 

f there are units remaining to be started then control is returned to 
the startup routine. If the conting unit is the Last or only unit 
running then a WAKE is queued and the pass timer is canceled. 


; CALLING SEQUENCE: 
Called by RMS when a file processing error is found. 


: INPUT PARAMETERS: 

; The FAB or RAB associated with the RMS call. 
: IMPLICIT INPUTS: 

3 TEST_START = Test started flag 

; START_CNT = Count of units started 


UNIT CNT = Count of units to be started 
UETUNTSM_TESTABLE = Unit testable flag in unit block 


; OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
Error message 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 


ee ee ee a kk kk kk a a kd dd dd dd 
ee ic ee ee et eed ce cn eee cae ce ce ee ce ed cee ee ee ed a ed ee a el ee ca ee ee ee el ee ee ce ee ee a ee ea ce ee ce ce ce a ce ce ee eB oe ee 
DBDOOCCOOCOOCCOCOOWOO OOO OW 0000 0900 09 09 09 08 SIN NINN INIOOOAAO 

AUER © OOO NAU ES WN SO OD NAME WW 0 OO NOU EWN OOONOU 


Ponte dee be be bee bet be | Sal “al 2a al Sah Al Ah Ah Ab Ab Ab Ab Ah db db db db dh db db Ab ab ah ah ab ab ab ah ab ab ab sb ab eabeab al ah sab eal al abeal eal eal eal 
DWI FOWOPOS FB NUMIMMM AD OOOO OOMOOCOAAAOAAAOAOHAAAOHOAAAOOOAAAOAOODBOOONO|AAAOONO 


Program may exit, depending on were we are when the error occurs. 
RMS_ERROR: 
OFFC ° «WORD “M<R2,R35,R4,R5,R6,R7,R8,R9,RIO,RII> ; Entry mask 
56 604 ag DO 3 MOVL 4(AP) ,R6 ; See whether we're dealing with... 
66 0 91 CMPB #FABSC_BID,FABSB_BID(R6) 3;_...@ FAB or a RAB 
 , eee Fs 10 BNEQ 10$ ; BR if it's a RAB 
58 56 00 11 MOVL R6,R8 3; ...address of FAB... 
OC AG DD 1 PUSHL FABSL_STV(R6) : ...STV field for error... 
08 A6 OD 1 PUSHL FABS$L_STS(R6) ; «STS field for error... 
0187°CF 08 Ad 00 14 MOVL FABSL_STS(R6), STATUS 3: ...and save the error code 
10 +11 19 oe BRE COMMON :; FAB and RAB share other code 
58 3C Ad D0 19 MOVL RABSL_FAB(R6) ,RB ; .--address of associated FAB... 
bg A6 ODD 13 PUSHL RABSL_STV(R6) 3 ..eSTV field for error... 
A6 OD 1 PUSHL RABSL_STS(R6) : ..-STS field for error... 
0187°CF 08 A6 00 $y pea MOVL RABSL_STS(R6),STATUS 3; ...and save the error code 
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RMS Error Handler SEP-1984 UETP.SR 


| 
5A 34 AB DA 1188 ¢ MOVZBL FABSB_FNS(R8) ,R10 ; Get the file name size 
118C $FAO_S CTRSTR = RMS ERR_MSG,= ; Common code, prepare error message. 
118C¢ 4 OUTLEN = BUFFER_PTR,=- 
118¢ 5 OUTBUF = FAO_BUF,- | 
118C § P = R10,- 
118¢ P2 = FABSL_FNA(R8) 
QOOC'CF DF 11A4 S PUSHAL pyrene PTR 3 «+eand arguments for ERROR_EXIT... 
poor ong F DD 11A8 PUSHL #*XxF0001 Sse 
0741130 BF DD 11AE 29330 PUSHL  #UETP$_TEXT Pes | 
9 EF 1184 1 EXTZV #STSSV_SEVERITY,- 
1388 ¢ ool sueapevens iY s@ 
59 gier'gt 118 STATUS,R 3 «get the severity code... 
6E 5° 88 11BB 4 BISB2 9, (SPS ; ...and add it into the signal name 
05 0002'cF O07 £0 11BE 5 BS #TEST_STARTV,FLAG,10$ : BR if testing in progress 
05 DD 114 § PUSHL #5 ; Current arg count 
QOAF 31 1168 335 108 BRW ERROR_EXIT ; Time to bail-out 
O183'CF Dé 1109 2339 INCL ERROR_COUNT ; Update running error count 
O183'CF DD 11CD 2340 PUSHL ERROR_COUN1 
90010002 SF db I1bs 3342 PUSH’ #sR T0002” 
00748020 8F DD 11DB 365 PUSH #UETPS$_ERBOXPROC ; Set the message code 
6—€ 59 88 11€1 44 BISB RO, (SPT 3 «..and the severity code 
O0000000'°GF 09 FB 11E4 45 CALLS #9,G*LIBSSIGNAL ; Report error 
57 18 A6 DO 11EB 2346 MOVL  RABSL_CTX(R6) ,R7 ; Get unit block address 
5A O1A9 C7 DE IEF 2347 MOVAL UETUNT$Q_DEVDSC(R7),R10 ; Get address of unit name descriptor 
11F4 2348 SFAO_S CTRSTR = DROP_UNIT_MSG,=- ; prepare message 
11F4 2349 OUTLEN = BUFFER_PTR,- 
11F4 329 OUTBUF = FAO_BUF,- 
11F4 51 Pi = Ri ; Unit name descriptor 
OOOC'CF DF 1209 332 PUSHAL BUFFER_PTR ; Dropped unit message 
DD 120D 2352 PUSHL #1 3; Arg count 
00741132 8F DD 120F 2354 PUSHL M#UETPS_TEXT!STSS$K_ERROR ; Msg code and severity 
00000000'GF 03 FB 1215 2355 CALLS #3,G*LIBSSIGNAL 3; Report message 
02 BA 121C 2356 BICB2 M#UETUNTSM TESTABLE,- ; Mark unit untestable 
A7 sit 357 UETUNT$B_FLAGS(R7) 
O1C6"CF 97 122 58 DECB TART_CNT ; No more testing for this unit | 
1A 14 1224 59 BGTR ; BR if there are still units running 
OIAF'CF 95 1226 60 TSTB UNIT_CNT ; Are there units not yet started? 
14 14 122A 61 BGTR 20$ ; BR if there are : 
122C 6¢ SWAKE_S ; Wake up the start routine so testing 
1237 6 ; will end (no more units) 
1237 64 SCANTIM_S ; Cancel pass timer - we are all done 
04 1240 $07 20$: RET 
1241 ¢ 
1241 236 
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Vv 1000 CT d mets yi b4 330528 UETP.SRC GET TAPEOD. NAR: 1 
coe -SBTTL CTRL/C Handler 
; FUNCTIONAL DESCRIPTION: 
: This routine handles CTRL/C AST's. It calls RMSRUNDWN to make sure 
there are no open files left around or any hung RMS I/0's pending. 


; CALLING SEQUENCE: 

; Called via AST 

; INPUT PARAMETERS: 

; NONE 

; IMPLICIT INPUTS: 

: NONE 

; OUTPUT PARAMETERS: 

: NONE 

; IMPLICIT OUTPUTS: 

: NONE 

; COMPLETION CODES: 
NONE 

; SIDE EFFECTS: 

: NONE 
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CCASTHAND: 
OFFC WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ; Entry mask 
; Output the abort message 
QOOB7"CF OF PUSHAL CHTRLCASG ; et message pointer 
1 OD PUSHL #1 Set arg count 
00741130 8F DD PUSHL #UETPS_TEXT!STSS$K WARNING Set signal name 
DD PUSHL #0 indi icate an abnormal termination 
OOE1'CF OF PUSHAL PROCESS_NAME iosee 
OD PUSHL #2 
0741060 8F DD PUSHL ‘ ETP$_ABENDD! STSS$K “WARNING ee 
00000000'GF 07 FB CALLS G*LIB$SIGNAL ; Output the message 
D0 MOVL acétsin INHIB MSG! - : Set the exit status 
eTesk SUCCESS+STS$K_WARNING>,=- 
0187°CF 10000650 8F ATU 
SEXIT_S STATUS ; Terminate program cleanly 
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-SBTTL Error Exit 


++ 
FUNCTIONAL DESCRIPTION: 
: This routine prints an error message and exits. 


; CALLING SEQUENCE: 

MOVx error status value,STATUS 

PUSHx error specific information on the stack 
PUSHL current gp coment count 

BRW ERROR_ 


; INPUT PARAMETERS: 
Arguments tu LIBSSIGNAL, as above 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
Message to SYSSOUTPUT and SYSSERROR 


IMPLICIT OUTPUTS: 


Program exit 
; COMPLETION CODES: 
NONE 
SIDE EFFECTS: 

NONE 
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ERROR_EXIT: 
SSETAST_S ENBFLG = #0 ; ASTs_ can play havoc with messages 
15 0002°CF 03 €0 BBS “#BEGIN “MSGV, FLAG, 10$ ; BR if ‘‘begin’' msg already printed 
E 04 CLRL -(SP) ; Set the time stamp flag 
OOOF'CF ODF PUSHAL TEST_NAME ; ae, the test name 
2 OD PUSHL @# the argument count 


00741039 8F DD PUSHL  M#UETPS sees ipreen _succésss set the message code 
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00000000'GF 04 FB i CALLS #4,G*LTBSSIG : Print the startup message 
O1D7"CF O08 8E€ (C1 ADDL3 (SP)+,#8,ARG_COUNT ; Get total # args. pop partial count 
0183°CF 06 0 INCL ERROR_ COUNT ~ ; Keep running error count 
DD 1 PUSHL #0 ; Push the time parameter 
tae OF ¢ PUSHAL A's $S_NAME ; Push test name... 
OOOF 8 or OD PUSHL #*X ++-arg count.. 
00741 f F OD 64 PUSHL sur TPS peewee! STSSK ERROR ah signal name 
oi 3'CR 6D 65 PUSHL ERROR ; finish off arg list... 
OE1'CF ODF 66 PUSHAL PROCES NAME ; ++.0UF Own name... 
0001000 . DD 6 #*xi 
00748022 BF DD 68 PUSHL #UETPS$ ERBOXPROC : STS$K _ERRO +es for error box message 
00000000'GF O1D7"CF FB 3 $9 CALLS ARG_COONT,G*LIBSSIGNAL™ ; mom ig tch 
0187°CF 05 D 71 TSTL TATUS ; Did we exit with an error code? 
9 is D9 8 BNEQ 0$ ;: BR if we did ; 
00741065 F OD DB 7 MOVL #UE TP$_ABENDD ! STSS$K_ERROR, ~ ; Supply a generic one otherwise 
0187'°CF E1 74 STATUS 


B 2 
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475 208: 
0187"cF 10000000 8F cB 1 es 2c8 BISL #STSSM_INHIB_MSG,STATUS ; Don't print messages twice! 
E tof SEX! STATUS” : Exit in erro 
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480 .SBTTL Exit Handler 
481 ;+¢+ 
4 ¢ ; FUNCTIONAL DESCRIPTION: 
485 ; ae diy, nenevee cleanup at exit. If the MODE lo bg naee is 
484 ; covet ted t NE'', this routine will UPTONT the test f 29 in the 
485 ; U TINIDEV. DAT file depending on the UETUNTSM_ TESTAGLE f » * state in the 
4 8 3 UETUNTS$B _FLAGS field of the unit block for each unit for the device 
4 : under test. ALL sounted units will be dismounted and all modified 
rt : tapes will be initialized. 
490 : CALLING SEQUENCE: 
$3) : Invoked automatically by SEXIT System Service. 

: ; INPUT PARAMETERS: 
494 ; pratus contains the exit status. 
495 ; FLAG has synchronizing bits 
) $ DDB_RFA contains the RFA of the DDB record for this device in UETINIDEV. 
498 : IMPLICIT INPUTS: | 
499 ; UNIT_LIST points to the head of a doubly Linked circular List of unit 

; locks for the device under test. | 
: OUTPUT PARAMETERS: 

: NONE 

IMPLICIT OUTPUTS: 

: Various files are de-accessed, the process name is reset, and any 

: net synchronization with UETP bag is carried out 

: If _ OF Logical name is equated to ‘ONE’, the rout ine will update 

: the t 29 n the VETINIDEV.DAT tile dependin 
; UE TUNTSH_ tes ABLE flag state in the UETUNT B. FLA s° fietd of the unit | 
: block for each unit for the device under test. 
: COMPLETION CODES: 

: NONE | 
: SIDE EFFECTS: | 
: NONE 


EXIT_HANDLER: 
-WORD = “M<R2,R3,R4,R5,R6,R7,R8,R9,RIO,R11> ; Entry mask 


SSETAST_S ENBFLG = #0 ; Disable AST delivery 
SSETSFM_S ENBFLG = #0 : Turn off System Service failure mode 
BBS “#ONE SHOT _MODEV, FLAG,5$ ; Skip RMS run down if oneshot mode 


; Here we cancel any RMS 1/0 so the channels will be deassigned 


PUSHL #0 ; Run down of image and indirect 1/0 
PUSHAL RMSRUNDWN_BUF ; Buffer to receive device & file 

> name of any improperly closed files 
CALLS #2,G*SYSSRMSRUNDWN 


CALLS #0,DISMOUNT_TAPE ; Let's go dismount the tape(s) 
PUSHL #0 


5$: 


wuts 


if Ba 
10 AA = O4CB'CF 


1B 0B 


58 
00000200" 8F 


OO18'CF 8 4E 
3¢ 


5B 
00000200" &F 


D 
TP DEVICE TEST FOR TAPE 
er 


5A__ 0484" 


1E AA 
5B O200°CF 00000200° 


DWDOnNST OOWOOOOWPFW PSP PP rw—-wWo Ac 


PEELE NI & ANIA AAI 


DOGS SIAM DODD OOOOOORNOOD 


~o}-007 


rmvin—o 
OOOO NAUNE WN $$ O COONAN EWN CO OOO NA UE WIN O OOO NONE WI OOOnI 


CD OD 0D SINNOTT EE EIN 


twee eal ab ah sh dh dh dh Ah Ah Ah Ab Ah Ah dh Ah Ah dh ah hb dh db db eb db ah hh ah dh dh Ab ah sh sh ab ah sb ah ah dh th eh sb dh ab dh db eb db eb died ad a eee) 


PIP PPPININIMIPDPNPIPYNIMIPININPIPININPININIPINININININININININININ 
000000000009 00 0000: 
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CALLS #1,INIT_TAPE F 
BBC #ONESHOT_MODEV,FLAG, 108 : 
BBS #SAFE_TO"UPDV,FLAG, OS : 
BRW END_UPDATE 3 


; See if we can find our place in 


MOVAL INI_RAB,R10 

MOVB #RABSC_REA,RABSB_RAC (R105 
MOVC3 #6,DDB-RFA,RABSW-RFA(R1 
$GET RAB = TRIOS 


BRW UPBATE_FAILED 


) 
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Let's go init the sagetee we modified 
e 


BR if not oneshot mo 
Is it ok to update? 
Wo updating to be done 


uetinidev.dat 


Set the RAB address 

; Set RFA mode 

; Set RFA to DDB Line 

Go back to the DDB record 
BR if successful 

If failure then forget it 


; Let's find out if we have any testable units 


MOVB #RABSC_SEQ,RABSB_RAC(R10) 


ADOL3 SUNIT_CIST UNIT CIST RU 3 $ 
CLRL ® 


; Set back to sequential! mode 
et the unit block List header 
Clear logical name flag 


CLRL R9 ; Init a counter 
; Return here until all units are checked 
BBC #UETUNTSV_TESTABLE,- : BR if unit is not testable 
UETUNT$B_FLAGS(R11),10$ 
INCL R9 ; Count testable units 
TSTL R8 ; Have we created logical name for RMS? 
BNEQ 10$ ; BR if we have 


have a testable unit tell the other tests about it 


SCRELOG_S #1,LOGNAM _DESC,- 3 

UETUNTSQ_DEVDSC(R11) 
INCL R8 ; 
; Do next unit - if there is more 


ADDL2 = (R11),R11 


CMPL R11, #UNIT_LIST ; 
BNEG §-UNIT_LOOP ; 
TSTL 9 ; 
BNEQ 208 3 


; Create piace device name for 
est. 


RMS t 
Set flag 


Next unit block : 

Are we full circle in the List? 
BR if no 

Any testable units? 

BR if yes... 


testable units mark the controller as untestable in uetinidev.dat 


MOVB = #*A/N/,BUFFER+4 ; 
SUPDATE RAB = (R10) : 
BLBC RO, UPDATE_FAILED ; 


von pise disable the DDB record.. 
here 
If error then forget it 


3; We maee testable unit(s) - update uetinidev.dat to reflect what 
: foun 


; Next unit block ; 

; Are we full circle in the List? 
; BR if yes 

; Get a record : 

; If error then forget it 
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SEP=1984 01: 
i ioet tf Bi: 33: 
BICB2 #LC_BITM,BUFFER : 
CMPB. so #“A7U/, BUFFER ; 
BNEQ END_UPDATE ; 
BBS #UETUNTSV TESTABLE 2 oy 
UETUNT$B_FLAGS(R115,20$ 
MOVB  _#*A/N/,BOFFER+4 : 
SUPDATE RAB = (R10) ; 
LBS RO,20$ 3 
UPDATE_ FAILED 
PUSHL RABSL_STV(R10) : 
PUSHL R : 
PUSHAL INIDEV_UPDERR 
PUSHL #1 


EXTZV PSTSSV. SEVERITY,=- 
#STS$S~ SEVERITY RO,-(SP)° 


BISL2 ME TPS TEXT, (SP PS ; 
CALLS #5,G*LTBSSIGNAL 
END_UPDATE : 
; Output the ending message 
PUSHL #0 ; 
PUSHAL TEST_NAME : 
PUSHL #2 ; 


EXTZV #STS$V_SEVERITY,=- 
#STSS$S_"SEVERITY,- 
STATUS, =(SP) 


VETP.SRC SUETTAPEO 


t to uppercase 
a - record? 


this unit is testable... 
»»-else disable the UCB record... 


Conver 
Is it 
BR ifn 
BR if 
eee ere 

Look at the next record if n> error 
Do a simple message. 


: .etO tell of the failure 


; Copy the severity from RMS status... 


.+.tO our message 


Set the time flag 

Push the test name 

Push arg count 

Push the proper exit severity... 


BISL2 #UETPS_ENDEDD, (SP) ; ...and use it in our message code 
PUSHL 4&4 

MOVL SP,R1 

SPUTMSG_S MSGVEC = (R1) ; Output the message 


3; Finish last minute clean up 
+ 5 Nae PRCNAM = ACNT_NAME 


- END UETTAPEOO 


Reset the process name 
That's all folks 
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RABS$B_PSZ = 34 S$S$_WASSET = i 
RABS$B_RAC = Af SSERROR 9R F 
RABSC_BID = 0 SS_FAIL_MODE 8 3 
RABSC_BL 2 64 SS~SYNCR_EFN s 
RABSC_RFA = 8 0 START_CNT 8 ie R ; 
RABSC_SEQ = 00 ° STATUS 000187 R 
RABSL _BKT = 000 9 STRSUPCASE aerenees§ XxX 05 
RABSL_CTX = 5 0001 STSS$K_ERROR = £00008 ¢ 
ABSL_FAB = ee STSSK_INFO 2 0 43 
RABS$L_PBF = 000000 , STSS$K_SUCCESS = 00000 4 
RABSL_RBF = 000000 STSS$K_WARNING = 00000000 
RABSL_ROP = 44 44 4 STSSM_INHIB_MSG = ABR on Re 
RABSL_STS = 00 8 STS$S_FAC_NO = 0 o 
RABSL_STV = 44 8 STS$S_SEVERITY = 0000000 
RABSL_UBF = 00000024 STS$V_FAC_NO = 00000010 
RABSV_ASY = 00000000 STS$V- SEVERITY = 00000000 
RAB$V_B10 = 00900008 SUPDEV_GBLSEC 00000020 0 
RABSV_PMT = 444543 SUP_FAB 00000400 R 0 
RABSW_RFA = 0000001 SYSSASSIGN eeeneeee GX 05 
RABSW_RSZ = tg. SYSSCANCEL eeeeenee GX 05 
RABSW_USZ = 00000020 SYSSCANEXH aeeeeeee GX 05 
ANDOA1 009001B2 R 03 SYSSCANTIM eeeeeere GX 05 
ANDOM2 000001B6 R 03 SYSSCLOSE eeeneeee GX 05 
READ_SIZE = 00008000 SYSSCONNECT eeeeeeee GX 05 
Ec Size = ats SYSSCREATE aeeeeeee GX 05 
REPORT _ERROR 00000953 R 05 SYSSCRELOG eeeeeree GX 05 
REQIDTT = 00000001 SYSSCREMBX teeeeeee GX 05 
REQIDT2 = 0000000 SYSSCREPRC eeeeeere GX 05 
RESTART 000004C5 R 05 SYSSCRMPSC eeeeeere GX 05 
RMS$_BLN eeeeeere =X 02 SYSSDASSGN eeeeeeee GX 05 
RMS$_BUSY teneeeee xX (02 SYSSDCLEXH eeeeeere GX 05 
RMSS_CDA eeeeeeee =X og SYSSDISMOU teeeeeee GX 05 
RMS$_FAB terereee = X 0 SYSSERASE eeneeere GX 05 
RMSS$_FACILITY = 00000001 SYSSEXIT eeeeeere GX 05 
RMS$_NORMAL eeeeerer ¥ 05 SYSSEXPREG tereeeee GX 05 
RMS$_ eeeeeree x O SYSSFAO geeeeeee 05 
RMSRONDWN_BUF 000001DB R 0 SYSS$GET eeeeeeee GX 05 
RMS_ERROR 0000115C R 05 SYSS$GETCHN eeeeeeee GX 05 
RMS ERR_MSG 00000377 R 8S SYSSGETDEV eeneeeee GX 05 
RUNDWN_BuF 000001E3 R 0 SYSSGETOVI treeneee GX 05 
SAFE_TO_ UPON = 000 SYSSGETJPI eeeeeree GX 05 
SAFE TO” UPDV = 00000002 SYSSGETMSG eeneneee GX 05 
SECSA_ERPREG eenereee X= 05 YSSHIBER aeeeeeee GX 05 
SECSM_GBL eeeeeeee = = X 05 SYSSINPUT 00000075 R be 
HR$_ABENDD = 000010E0 SYSSMGBLSC eeeeetee GX 
SHRE_BEGIND = 00001038 SYSSMOUNT seeeeere GX 05 
SHR$_ENDEDD = 0000108 SYSSOPEN eenereee GX 05 
SHR$_OPENIN = 0000109 SYSS$PUT eeeeeeee GX 05 
SHRS$_ TEXT = 000011 SYSSPUTMSG eeeeeeee GX 05 
$$_ABORT s 9098 ¢ SYS$QI0 eeeeeeee GX 5 
SS$_BADPARAM = 8 3 4 SYS$Q10W eeeneeee GX 5 
SS$_CANCEL = 0000 9 SYSS$READ aeeeeere 6X 5 
$S$_CONTROLC = 00000651 SYSSRMSRUNDWN eeeeeeee = § X 5 
$- L = 0 91 SYSSSETAST aeeereee GX 5 
SS$_ NOSUCHSEC = 3 8 SYSSSETIMR eererese GX 05 
SS$_SSFAIL = 5C SYSSSETPRN aeeeeeee GX 9 
S$" TIMEOUT = 0000022C SYSSSETSFM ateeeeer GX 
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SYSSSPACE 


IRTYSEC 
THIRTYSEC_DELTA 
THREEMIN 
THREEMIN_DELTA 
TIME 


TIME _OUT 
TIME-OUT_MSG 
TTCHAN 


UE TP$ENDEDD 
UE TP$ERBOXPROC 
UETPS~FACILITY 
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UNIT_LIST 9600 R ; 

UNIT“LOOP 1 68 R 

UNIT" TIMEOUT 0A01 R 5 

UPDATE FAILED 13E9 R 5 

WRITE_BuF Th 8 3 

WRITE_SIZE = 00008000 
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UETTAPEOO 


J 
VAX/VMS UETP DEVICE TEST FOR TAPE 
Psect synopsis 


dooms oo + 


; Psect synopsis ' 


eer ee eer seen eee eon + 


The working set Limit was 1500 pages. 
194103 bytes (380 pages) of virtual memory were used to buffer the intermediate code. 
There were 120 pages of symbol table space allocated to hold 2292 non-local and 4 Local symbols. 
2631 source Lines were read in Pass 1, produc ing 46 object records in Pass 2. 
pages of virtual memory were used to define 76 macros. 


Gecossuseosouscosocesssseees 


Macro Library name Macros defined 
“$255$DUA 8: CUETP.OBJJUETP.MLB; 1 ‘ 
- 5SSDUA28: (SYS. OBJILIB. MLB; 1 

$255$DUA28:(SYSLIBJSTARLET.MLB;2 71 

TOTALS (all Libraries) 73 


2670 GETS were required to define 73 macros. 
There were no errors, warnings or information messages. 


PSECT name Allocation PSECT No. Attributes 
. 90000000 ( g.) 0¢( 0.) NOPIC uUSR CO ABS LCL 
SABSS 5000000 ) 1 ¢ 1.) NOPIC USR CON ABS LCL 
RODATA 0000440 C 1401-2 Og ¢ gc) NOPIC USR CON REL LCL 
RWDATA 000064 ( 1608.) ( -) WOPIC USR CON REL LCL 
SRMSNAM 444983 ( 66.) Q4&4 (¢ 4.) NOPIC USR CON REL LCL NOSH 
PE 000145D ¢ 5181.) O05 ¢ 5.) I USR REL LCL NOSHR 
ewe mere nm sens ron me amecann + 
! ; Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.09 00:00:01.06 
gonnens processing 114 00:00:00.71 es Be 
1194 eb Se 4 00:01:33.19 
Cvabol table sort 0 00:00:03.67 BF 0 8 OF 
Pass 2 1066 00:00:09.67 00:00:33.07 
Symbol table output 1 90:00:00.34 00:00:00.65 
Psect synopsis output 1 00:00:00.03 00:00:00.03 
Cross-reference output ) 00:00:00.00 00:00:00.00 
Assembler run totals 2408 00:00:50.53 00:02:19.97 


RD 
RD 
RD 
RD 


MACRO/LIS=LIS$:UETTAPEOO/O0BJ=OBJ$:UETTAPEOO MSRC$:UETTAPEOO/UPDATE=(ENH$:UETTAPEOO) +EXECMLS/LIB+LIBS:UETP/LIB 


"oreo 18G Ou i2e.28 LORTP SRCIUESTAPEOD MAR; 1 


NOWRT NOVEC 
WRT NOVEC 
NOURT pod +} 
WRT NOVEC 


URT NOVEC 
NOWRT NOVEC 


BYTE 
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